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1 . SCOPE 


1.1 GEN ERAL 

This specifies the detailed design for CAMS classification and 
proportion estimation accuracy assessment software implemented 
for background operation on the POP 11/45. Included are: 

a. Two input data preprocessors. The first is a stand-alone 
program which scans a DTRM tape and produces a printed file 
directory for that tape. The second is a stand-alone program 
for the generation of Accuracy Assessment Phase I input data 
tapes (B Tapes) from Bendix output field vertices data tapci. 

b. A two unit software module for preparation of a proper ground 
truth data tape in LACIE Universal format (see Reference 1) 
and a utility program for printout of those data for monitor- 
ing puproses. 

c. A three unit functional software module for development of 
accuracy assessment parameters from input ground truth data, 
image data and analyst labeled dot data. The accuracy assess- 
ment parameters are (see Appendix B) : 

1. True wheat proportion 

2. Maximum Ixkelihood proportion estimate 

3. Classification and pixel counting proportion estimate 

4. Probability of misclassification 

5 . Variance of Procedure 1 proportion estimate 

6 . Proportion of wheat pixels on field boundaried 

7. Dots labeled by ground truth 
Probability of misclassification of analyst labeled dots 
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2 . APPLICABLE DOCUMENTS 


The following documents, of exact issue shown, form parts of 
the specification to the extent specified herein. 

2.1 REFERENCE 1 

Earth Resources data Formate Control Book PHO-TR543, Volume 1, 
Revision A, Change 1, pages 7.1-9 through 7.1-25 provides 
complete definition of the "Universal" format of the DTRM and 
Bendix-100 output tapes. This is the Reference 1 (one) of the 
text. 

TIRF 77-0060, Modify the BTREAD Program 

TIRF 77-006:i, Nov 77 Implementation of SIGMAP, SPECTL and ALLCRP 

"As Built" Design Specification for PDF 11/45 Accuracy Assess- 
ent System (TIRF 77-0030), Oct 77 (LEC 11358, JSC 13666) 





3. SYSTEM DESCRIPTION 


The software system implemented on the PDP 11/45 for background 
generation of CAMS accuracy assessment indices, consist of two 
input data preprocessors (Figure 1) , an intermediate optional 
unit for monitoring of ground truth data, and three two-unit 
functional modules (Figure 2). One preprocessor scans the DTRM 
tape to be input and reports the file directory of that tape. 

The second preprocessor, converts the Bendix 100 output data 
tape (field vertices in NOVA floating point) to a proper "B” tape 
equivalent (field vertices in PDP/45 integer form). The first 
functional module constructs a "ground truth" data file from 
field vertices data input on the accuracy assessment (Phase 1) 
input data tape ("B" tape) , along with corresponding crop 
identifications input in punched cards. At this point, the user 
may apply the utility program to produce maps of the gro\and truth 
data for their examination before proceeding. The second 
functional module compares operational ERIPS and analysts 
classification results with the ground truth data to produce 
indices for the assessment of the accuracy of those classifica- 
tions . 

The initial step of the process is preparation of a proper "B" 
tape . This is application of that preprocessor which converts 
a Bendix 100 output data tape to a proper "B" tape data file 
equivalent. 

The second processing step is application of the first software 
module to the field vertices data input on the "B" tape (field 
vertices file) , along with corresponding field crop identifica- 
tions input in punched cards to construct and produce a "ground 
truth" data tape in Universal format. This step may include 
printout of ground truth data maps if the user so desires, but 
only if the special utility (mapping) program is applied. 


PBEPROCKSOR (DTEHU) 



Figure 











The final processing step is application of the final functional 
module to compare ground truth data with corresponding classifi- 
cation data. In the application, each unit of the module is 
executed separately. The first unit restricts the comparison 
of ground truth data to analyst "dot" labeling data to produce 
certain of the accuracy assessment indices. The second and third 
unit compares ground truth data to both analyst dot labeling data 
and ERIPS classification results (DTRM magnetic tape) . Prior to 
execution of this second unit, a preprocessor is applied to the 
DTRM tape to define its directory. 

3.1 Hi^J^DWARE DESCRIPTION 

PDP 11/45 with the following peripheral units; 

Iv Card reader 

2. Line printer 

3. Tape unit (2) 

4. Disk unit 

3 . 2 SOFTWARE DESCRIPTION 

This section presents brief functional descriptions of the two 
preprocessing units, the utility (mapping) program and the two 
ftinctional modules of the CAMS accuracy assessment system, all 
of which were designed to be compatible with the PDP RSX-llD ■ 
operating system. Included in the descriptions are all sub- 
routines and subroutine interrelationships. 

All preprocessing units are stand-alone operating programs. The 
preprocessor DTERM is used to construct and report a DTRBJ tape 
file directory for use as a source of a program control input 
for the functional modules ALLCPP and MILTCRP. The other 
pr^^processor , B.T.READ, j used to construct an accuracy assess- 
ment (Phase 1) ("B" tape) file for use as input to the first 

functional module. 


The first unit of the first functional niottule edits the field 
vertices entered from the "B" tape to insure that they are proper 
for field boundary definitions. It then defines, for each field, 
the field boundary and associates the proper crop type (derived 
from card inputs) with it. It next defines the points at which 
that boundary intercepts the field dot lines. Finally, it con- 
structs an internal file of those intercepts for use as input to 
the second unit of the module. For its operations, this first 
unit (PHASE 1) calls the subroutines S-01, S-12, S-23, S-34, 

S-45, S-55 and S-56. The second unit of this module (PHASE 2) 
employs only standard system utility routines to manipulate and 
restructure data from the "intercept" file produced by PHASE 1, 
for production and output of a proper "ground truth" tape (mag- 
netic tape in Universal format). Subsequently, at the users 
option, maps of that groii^-d truth can be generated and printed 
out through application of the utility (mapping) program SGMAP. 

The second functional software unit consists of three stand-alone 
units SPATI, ALLCRP and MLTCRP. All of these units employ 
standard system utility routines and certain special subroutines 
to accomplish their comparison of ground truth data with 
classification data counterparts and subsequent calculations. 

Both units compute a specific set of accuracy assessment para- 
meters. The first unit SPATE restricts its comparison to analyst 
labeled dots , while the second two units^ ALLCRP and MLTCRP in- 
clude both analyst labeled dots and ERIPS classification data 
in its comparison. 

3.2.1 PREPROCESSOR (DTERM) 

3 .2 . 1. 1 Linkage 

This is a stand alone program which calls only standard system 
utility routines. 
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3 • 2 . 1 . 2 Inf rfiu;» 
None. 


3. 2.1. 3 Input 

DTRM tape (see reference 1 for format description) . 

3. 2. 1.4 Output 

Labeled printout of tape file directory including tape identif.1* 
cation and for each tape file the following: file number, sif 

number and acquisition date (day, month and year) 

3. 2. 1.5 Storage 

TBD 


3. 2. 1.6 Description 

DTERM reads the DTRM tape, extracts and reports the tape identi- 
fication, locates and numbers each tape file, then constructs 
and reports a tape file directory. 
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3.2.1.11 Listing 


IMPkIClT..lNTEGER(A-Q)i (S»Zi 

BYTE BUF(306Q)iT(8)iD(9)|A(e0) 

EQUIVAUENCE {SiBUF(67)) ... 

C0MMPN /STATUS/WtiWZ 

- .. CALI TlKe<T> ... 

call DATE(0> 

blf>Hla6 

WRITE{NP(?T#'/03) DiT 

...„703 F0RMAmHli » JBB- initiated .0N .. J.#9Aii i.— At .-.l4 8Aii/74.iOXi._. . 

1»PR0CRAM OTEPM.FTN') 

-NRDRiS ... 

JFLAr.«l28 

FJLL E a 0 ■ 

0PEN(UNITaNRDR»NAMEi'DTERM*,DAT>iTYPEa!0LD»iACCBSSi»SEQUENTlAL»# 

- lF0RMs*F0RMATTeD»iCARRlAQE C0NTR0LatNBNE.!.) 

REaD(NRDR#301> SDEV.NDEV 

F0RMATU1,1X» I2) . 

WRiTE(NPRTi302> SDEV»NDEV 

3flg F 0PMAT(//,lnX ^.A.l«±T±aflX 4 -LDEV.lCE M0 > ■ !.|.1. 5 1 

IDEV«0 

JnSDEViEQi »Xi ? IDEV*1 ...... . 

IF(N0EV,NE.Q.AND.NDEV.NE‘.1) G0 T0 900 

■ CALL. TlNlT(lilOEViNDEV). — 

CALL TATCH(l) 

Cj\LL.__Tamii,l 

WR1TE(MPRT,101> 

1O1_.F0RMAT t » r.lLE S iTt. DAY. M0m— YEAR ll 

• 1 CONTINUE 

.CALL, tread Ui.HU.Fi 1530) 

CALL TWAIT(l) 

: je0Fsjan^)ufla5xHi) .. 

IF<JE 0 F,BQ, 12 a) G0 TB 2 

C.. . ASSUMES THAT, END. 0F DATA...IS SIGNALED BY„2 CONSECUTIVE. EPFS 

CALL SWABfS) 

FILE^FUE*! . 

WRJTE(MPRT»102) FlLeiSi(BUF(I).I»61,63) 

lOiLf 0RMAT ( IH..., 5110). 

.CALL TFILEU.D 

CALL TWA ITU) _ ... 

G0 TP 1 

2 CONTINUE 

CALL TRWD(l) 

CALL.,-. TW A l.t(i..)-. — 

'500 CONTINUE 

CALL OaTE(D) , 

CALL TIME(T) 

WRITF.(N'PRT,103) D,T . 

WRITc(mpRT»103) D,T 

103 F0RMAT('. J0P completed 0N »|9A1i» AT ’♦8A1),._; 

ST0P 

END 
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3.2.2 PREPROCESSOR ( BTREAD ) 

3. 2. 2.1 Linkage 

This program calls the special subroutines RADER, LABEL and FSORT, 
in addition to the standard system tape manipulation toutines. 

3. 2. 2. 2 Interface 
RADER, LABEL, FSORT. 

3. 2. 2. 3 Input 

Magnetic tape output from Bendix 100 system (Appendix A) . 

3. 2. 2. 4 Output 

"B" tape formatted file for direct input to Accuracy Assessment 
Phase 1 program (Appendix A) and a file of crop labels which is 
used by the program PHASE 2 . 

3.2 .2. 5 Storage 
TBD 


3. 2. 2. 6 Description 

This program edits a Bendix 100 output data tape, extracts and 
translates acceptable field vertices data closes fields if 
possible and constructs a proper "B" tape file from them. 
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3.jl8 Listing 


,UXi[ AT »i6Al,//,iOXi 


IMPUCIT ]NTFDbR (A-H) 

iNTfcabM*^ Buri (BO) I Uurw( f!l> ) »OUFR<eO> 

ltiT£GE«*2 I'lTemJSgJ.SAMrtlOtnTtlNte^Vl?)” 

IMTE'-.ER^A DuF?(An> 

lbcjjcal#! fnifadoo) 

t.GUJVAUh\Ce «BUH,BUF3) 

■ - fc«UlVAl,t\Cf: (pur3(5), IMTFGd) )“ - 

cQulVAtt^Ct (BUF3<7)|UUf ?) 

BYTE Ti«)inC‘’) ■ 

C0HHPN /STATUS/V«,1» W2 
C0HM?N /ERR3R/IER*NPNT 

C0MM^N /hT/NRDP*NPRT,FtbLL<5O0)iFl.UV|l;y0) 

' ' CALL TIME(T) 

call DA1t(D)_ __ 

MPNTbNPRT 

■ FLGop ' ■ 

«F|,C.sl 

■ ■ whiTE(MPPT»703) D,T ■* * • 

703 F0RMAT(lHl,f J0O initiated BN 

I’-p-RrnR AM -btitg-a'D', Ttv* ) 

NHPKaS 

call ASSlQN(NRPn, tntREAD.DAT') 

READ (MRDR, 7 04 ) PKDP V , RN'DF V , RF I Lb 

• 7T1A ‘-T^RMATUldX.SlS) " 

WK n r I NPRT , 7'55 ) RSPbV , RNOt V , HF 1 Lb 

—705 F-JRrUTa^0.'10X» *nrnO TAPVr^V7/,10X,-ATdT< dtlT,"' 

i'DfcVICP 'FlLt: NB,S',P) 

Rinr.vuo ■ ■ 

IF(HSnt:V ,tO, 'X' ) KIDEVbX 

RK A D ( NRDR , 7 0 T ) W'n.P V , WMDF V , WF 1 Lb 

w« n r; ( nPRT . 706 ) W'SDb V , Wi\m- V , LF I Lb 

F'BRMATt/ a; J D X, * S I MULATPD ■BrOO'TAPL t> A/#tOX|-Al,' 

llOX, 'DrViCir N3 ,sM&,10X, 'FILE 
RIDEVsO 

IF(W<oDhV,EQ, 'X 
READINRDRjPOI) 

FlrlRMAT(4I5) 

RR n F d’PR T I p 0 ?■) -RCKP , D A Y , '•'P , V R 

FjARMATdHOd'JX* 'SEGMENT MUMPER 
'MONTHS' , rA*DX* 'YEAR*' ,15) 
call TIN! T<1» ride V,RK'PPV> 

■call TATCH(i) - 

CALL TRWD(l) 

■RFI L E'sfRFT Lt- •-< I" 

CALL TF iLEdfRFlLE) 

CALL TWAITd) 

CALL TIMT(-},XIDEV,WMD5V) 

CALL TATCWI4) 

CALL TRa'D<4) 

-WFTtrEs-'iF1LF:-il 

CALL TPlLeUiwFlLE) 

CALL TWAITC4) 

03 i? Iel,500 

• - FLDVn )aO- - “ 

12 

20 call TRbAP(i,GUF3,160) 

-call TRAITfl) 

KKsW?/2 

-•CALL TSTATd»rNl0T,r!RSIDU) 


-■ 701 " 

_^01_ 

&P 2 


,T»- 


') WlDEVnl 
SGNF,DAY,M0, YR‘ 


»»lP|I»^»'DAY»*il 5 ,tJX, 


e|T7elAN0(rNCTil2d) 
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‘lP<aiT7,b(j,U6> T{<*999' 

INTERMad.JFJd) 

— 0Ur3(l)«RUr3{2> 

8UF3(2)slNTbRM 
•'INTeRM«Byr3(3) 

BUr3(3)=rfUf’3(4» 

"■BDr3T4 ) * I MT^r*— - 
Ii'J7EnM«»ur3(S> 

HUF3{S)sRUr3U> 

BUr3(6)sli'JTERM 
■UIMIT»INTEG{1)*4-1 • 

IF{L1MIT,QT,312) ».R1TE (MPRT»4ni> L.JMIT 

~r^ !?MA T 1 1 ritr >r» » L l frj T"Vrvn; g ) 

IF(L|MIT,GT,31Z) STkJP 

•■KKK*KT-i 

8UFW(l>«nuFK3)*?*2 

HUFW(2)sPL:F1(1 J - 

IF(t3l.'FW<2) .LT,0,nK,BUFW(2) ,rsT,<9V) 

~irrKfrK7£.‘iT, 0 TTmo ( DT^n-urKrz ) 

lF(KKK,fci3,0) FL0V(1)»BUF1<2> 

•ir(K/K,fcQ,Or GtJ T0'15 

1)2 i.A Is1»KKK 

•IF'fBuFW(2) ,EQ;Fl^tDm> 150 T0 16 " 


3D1 


15 


16 

-17. 


21 


102 


302 


-4t33" 


4f4 


”V/v 








ifL' 


y 


00 le 13 


-KT" 


Kp»t, jsr 


C2NTINJr. 

~1T7 KT77srr5 OT)i~viR rTE-ri4pRr» 3n‘) 

1F{KT,GT,500) ST2P 
^ FeRM'ATClH0,lD)O 'T^e-HANYTTEUDS 
FJEL0(K1 )s8uFK<2) 

FUn'VIKTT-BUFnzr 
KTsKT*l 

— a2-'Tr*ei 

WKITE(NPRT*17) BUFW(2) 

F0RMAT(1X, 'DUPUICATe HELP “NUMREfi’VIiyA) 

GH T0 20 

” WR]TE''jPRT» 1»> Burw(2)-' - 

F2RMATaHO,lOX» 'FIEUD NUMBER 2UT5I»b WlPlTS*,UO) 

“GrTOT 20 

Kbq 

• -DB-BSO'^'I *2 FLlWITi 4 

N«l+1 

■■ lF(N.GTi312lWRITE(MPRTT40.2)'N- 

F2RMAT UH0,10X, »N » * 1 llO) 

-irrM.-GTTSi-^rsT^P” 

KAaKT<*l 

- ■ CALL RADER nNlbG CD i INTETtN) ) 

IF nER.EQ.l) WRITK(NPRT, 302) 

in JER.fcO,!) 'STBP - 

rv)RMAmwO<lOX» 'KT3», ISf^X, ’FIELDIK] )S* 

K'FK’Hf'l 


KA»F IbUljIKA) 

» 15) 


IF<K,GT,3?)WRITE(NPRT, 403) FIEl,DIKA),R 
F2RMATUHailOX» 'FIEfD-W.-A» 15, *■ >Ab-|> J5, »”VERT1CE8» t 
IF(K,GT,.'59) STDP 

SAMP(K)stNTEG( I ) 

U«I*2 

■IT 'ItTC T7 3t7T“)rM-l TE"i'NpT?tT4Tr4t~ I •: — 


110 ) 


NT- 


F2RMATUH0,10X, *1. 

ir{L,GT,3l2) ST2P — 

N»I+3 

iriN ,GT , 312 )■■ VrK I TE { NPRTT‘4t) 2 > ' 

IF<N,Gr,312) ST2P 

-C7\rt"R At 1: RTT'NT t'lTtNTET? t1^) ") 

IF(IER,bQ,l) WRITEINPRT,302> KA,FlfcLDlKA) 

■■:ntER,fco-iir ttbp — 

UNE<K>elNTEG(l,) 

-MS2»(K-1>*3" — 

IF(FLG.fc3,l)’ WKIT6<NPRT,0O2) K,M 
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’ ti02 '•<*'# l3,UX» *M»*i 11>) ‘ 

IF(M*1,GT,80) w;?itb<':prt,405) M 

“^05 fORMATUHOilOX’* I5> — 

ir(M*l,GT,80> Slap 

BUFW{H)*SAHp(;<> 

. 

850 Ci^NTlNUb* 

IF (Ft.Gi fcO , 1) WHITE ( NPRIi'ROl (OUtfW $VJ) iV;f»n»0 ) 

_601__ F0RMAT<1H »10X*20I5) ' 

itV-rj-pl 

si,s0urw( 1 1 > 

"-'iLsBUFHrjJ) 

D&l.S8(jUFW(3>-r,Urw(I I ) 

— - OELLaBUrW(4)-0UrW( JJ) - 

OaLbslAl5S(DfcUS> 

tIKn.aTAt3SlOEi;r> 

_^IF(DFUSjEC.J),aNO,DEUL,CQ,0) G0 

in ;r-LS,uc.5iJ BUFW( n )»0UFW<3) 

TF< Dbti:-, i.1; VJ) ' Hurw( JJ > bBUF W rCA ) — 

JF (DKLS,CU.P,1'H.CELw,GT,3) SHUTc2 

rFTSRTnr,TQVlT tWTTFJ 

4*;5 Pi3RMATaH0»l0xi TlFLl' Ni*. M5»5X»'M!> CLC5SEP, 0LD VERT"*i 

1215) .'■' 

lF(SHUT*t'O.2,AND,3UFW<l)+2*GT,80> WH I ( b ( nPRT , 664 ) RIFW(2> 
■'6'64 ■■■“ rklRf^ATtiHOaOXi'FIEUD A’w. * "f VI 5T5X nC«#--?j0T ' BE CLOSED*) 
lf(SHUT,eQ.2.AfJO,GuFk(t>*2,GT,nO) Gli 10 444 
IF rsnUTVEn rzT* vn I TEtNPRT7W)~BtfF-wre7-»-nFFWt 3 ) ','BWTSC4')7 

IBUFwn 1 ),BUFW(JJ> 

44'6 ” FgRMATdt^O ilOXf ’FirUD WETV i ,'1 5 , 5X , * KAt "A 'VERTEX 'ADDEDi ’ ' ♦ " 
1'0LD VFRTlCESs',2l!^,5X,2I5> 

IF(SHUT,fcQ.2> UUFW(jJ + i)'e0UFWC3) 

lF(St^UT ,EQ,2) HuFW( JJ + 2)sfciUrK<4) 


444 

I FiTmiTvE P Murwd rsTTorKTir* ?. 

C0NTJNUE 




11" 

CALb TWR 1 T ( 4 1 OUf W » 80 ) 
call TWAIT(4? 




r0RMATdX»211L’I 
G0 T? 20 




9V9 

■"iJLIFWTZrefOtil" • 
call TWRITU*aUFl-.,60) 





CALT TWA it ( 4 ) 
CAU. TE0F<4) 


CALL' TWA in 4) — 

CALI THWD<4) 

cAizr'n’FTtrET-iT^ntEr—' — ^ 

__ _ CALL Tv.Am4) 

WRITE(NPRT#120> KA 

120-- F0RMATUHO/1OX. 'W0, ?F TlEL'rrSr’v'IS ) 

999i call TRbADU,aUFR,eO) 

CAE L-TWA-ITF41 

IMO*lNO+l 

- - -I F ( Q L'F R < 2 ) VE 0 , to P 1 ) ' G 0 ■ 70“9 99 2 

NVEHT*(BUFRa)->2)/2 

WRlTEINPRTdUOl PUFRC2 )'• FtDV UHD >> NVbfrT 

100 F0RMAT<1H .lUXdFIELn Ib,t»X, ItitCc VALUEel, I5,5Xi 

_ 3;-»1'r0' j~VFR T I C E'S *'^7i-!!7 

NC0=PUFR(l)-2 

j TP ( N-pRTVll 0 )" CBUFR n 1 4?T#~r I «1» NCKr™-' 

110 FPPMATUH , 6X»20I5) 

CALL"TSTArr4VFNRT>RESAnUT" — 

, IF(1aN0<FNRT»i 2S) ,Nb,l?0) G0 T0 V9V1 3~16 


n 


9992 wRjT|(NPRT,6) BurR(2) 

S r0RMAT(//liO/) 

CTfl'U rS^RTCKT) 

ir(Sri.Q|NE,i.) TP 631 
' D0 631 I-l.KT 

WRITE (NPRT, 632) 1 , F I ELU ( I) * FIDV 1 1 ) 

~trZ2 FlJimXTtlH-',T.-t5Tr3T'5) ' 

631 CKNTlNUb 

CALU CLPSE (\'R0R) 

0PEN(UNIT«^RDRf N AMES’ t.^bELl, PAT* ,TYFfc»*eLD*, 
lACCHSSs'SfcQUSNTIAL* ,F0RMs« FORMATTED » > 

2CARHIAGE CC!NTR0i.»«M0N!h* ) 

WirriTTWT3R'»T0Tr'TGW,IlAYVH'Pr,TlT 

505 F0RMATC415) 

D0 666 ruQ»l,2 
CAU label (KTiFLG) 

IF{FlG,EQ,2) G0 T0 666 

call CL0SE(KRdB) 

ep^TW'TvNWRl’N AMt- ♦ L ABcL2 1'tTAr’ ♦ TTrtrs-^lfC-B^ 

1 ACCfcSSi « sequent I Au s F0RM«»F0RM ATTbU* , " ' 

2CARRIAGE C0NTRKU* ' ' ) 

wRiTE(NRDR, 505) SGN0,DAY,M0, YR 
666 neVTTNUE 

caul CL0SE(NRdB) 

- STFfi'} rUNTT»t3irtTR“i tilAlie-s''» L AB-E-LBVD A^T-* I T Y‘Ptr»-*tUD"»"» 

lACCfcSSa • SEQUENT I At » ,F0RM»’F0RMATTfcD», 

2CARR1ASE C3NTR0L* ' ’J0ME ' ) 

I £«0 
IMIb o*! 

WH1TE(NKDR,&OS)SGN0,UAY,M0., yr 

WRTTF(Nt?UR,56T> TErrr,'lMi •' — 

565 F0RMAT(3I5) 

call CL0SE<NRDB) 

CALL DATB(D) 

CALL TIME(T) 

WRITE(NPRT»333) D,T 

— jiST FWMATtiitO'rro‘K'r»'jTjr cbmp-l-eteet- biv! »■ , v a t-,f ^ -At t7-3*ait" 

ST0P 

bnd 



3.2.3 BTREAD SUBROUTINES 


3 . 2 . 3 . 1 General 

The special subroutines called by BTREAD are RADER, FSORT and 
LABEL. RADER and PSORT interface only with BTREAD. LABEL 
interfaces with BTREAD and a subordinate subroutine ^COMP. 
Communication between BTREAD and its subroutines is totally 
through common. 

3 . 2 . 3 . 2 Subroutine RADER 

This special subroutine converts NOVA floating point numbers 
to equivalent PDP 11/45 integers. 


s 


















•II » B4 
13 « lAND 
( 11 , 12 ) 



i I 



PRINT 

"ERROR IN RADER 


! INTl-XXXXXX 
I INT2*XXXXX 


IEXP0«XXXXXX 




J.a.j.ib Uttinq 


c 

e 

c 

c 

c 

c 


SUMBUTIKI RA0EnnSTlilNT2) 

THIS rUVCTlJiN C«NV£RTS A F1.0AT1NQ PBImT HBRO IN NBVi EXCiSS 64 

THE^4 C0mm^N^BVTES*?N^THIS FUNCTIBN CBRRESPBND T0 a single NBVA PLBATINQ Pf|NT 
variable, B% is the LEFTMBIT byte A*iD B4 is the RIGHTMBST BYTBi 
THE rUNCTlPN RETUfiNS THE INTEGER VALUE BP THE RBUNDED N0VA 
rLBATINO P2JNT VARIABLE AS REPRESENTED BY THE 4 BYTES, 

BYTE BYT<2) |BlP{2) 

BYTE Bli02iB3,B4i IC0 HP, INTpM.LAST, ISGN 
equivalence {lNi,9VTU)h(lP2»BLP<l>> 

C0MH2N /ERR0R/IER.NPRT 
DATA InTHM/ 0200/ 
lERiO 
INUlNTl 
IN2IINT2 
BiPBvT(l) 

B2pSyT(2) 

B3«BLeil) 

B4>BLB(2) 

U"Bl 
I2MNTPM 
I3«lANn(li* 12) 

ISGN»I3 
1EXP2b* 64 
D0 20 M»li7 
IC0MP«?«*IMisl) 

12*IC0HP 
I3«UNDmil2) 

LAST-I3 

LAST»LAST/IC0mP 

inLASTiEQil) lEXP0»IEXP0*2##(Mmi) 

lFnpXP0iGT,3) JERpl 

iniFXP0iGT,3j WfilTElNPRTilOO) I NTl i I NT2 , 1 EXP0 
F0RMAT(1 HOi1OVi 'ERR 0R IN RADER ' 1 10X| ♦ I NTl» • i 1 10, 

ISKiUNTa'iiIiOiSX, •IEXP0»M1O) 

IFMEXP0.GT,3) 00 T0 22 
SUM«0 

D0 21 HPliO 
IC0MPBINTRM 

IF<M’,NE,fl)lC0MPp2**<M-l> 

Ii»B2 

12-IC0MP 

, . 13«lANDniiI2) 

I5*IC0HP 

iniS.iQi I5)SUH«SUH*1,0/(2.,0**(9«M>) 

IIPB3 ' 

13»lANDmi 12) 

IF (I 3iEQi 15 )SUHfSUM*l ,0/(2.044 U7 »m) ) 

11«B4 

I34IAND(Ui 12) 

21 lF(l3,EQi 15 )SUH»Sum*1,0/(2.0*4(Z.5-h)) 

IFdSQN.EOV, INTPM)SUMB-SUH 
SUM¥SUM«164«IEXP04,5 
INTl.SUM 
22 C0NTINUE 

return 

END 


to 


'^00 


I 


3. 2. 3. 3 Subroutiif FS0HT 

Subroutin© FS0RT arrange© th« field entries in numerical erder. 

I 











-IW .-.‘II -IJUliBp 




3*2. 3. 3b Listing 

subroutine FS0RT<KT) 

IMPLICIT integer (A.H) 

C0HM0N /BT/NRDR* NPRTiriELD(500),FLDV(500) 
KTMJ.KT'l 
D0 10 )i 1»KT 
D0 20 IlliKTMl 

inneLDin.GT.FiELDun)) g0 t0 2o 
DUMPbFIELDII) 

FiELnm-nEiDii^i) 
riELD{I*l>»DUMP 
DUMP«FLDV( I ) 

FLDV(I}sFUDV(r*l> 
rLDV(Ul)»OuMp 
20 CONTINUE 

10 continue 

RETURN 

END 













3.2.3.4b Lifting 


IhdM ailL .1, A y 6 L X !f Tj r t a i i... 

r^PtlClT IsTEUfcR (a-r) . 


WPITE(NPR*f,^<57) 

5.0Z. FR>'AX-l//a^r^* 'FieUUA2-,L?JlL.T3AASmMATRNi.,//,7X.«rieL0^ 

,2V* *F JELL’ ,6X, *C0DE' ) • 


i»00 

Jlii.Z-L-.-, 

C'^NTINUR 

IP8^:C _•„ , ,, 


SOI 

CJ’NTINUH 

CALL CCMp(rLG»C. IP.PNTR) 

>k ' ' 

lF(PNTR,eQ.l) G;! to 502 
-lPalR^l__ 

G” T0 501 

SO? CMINUE- _ ' _ _ _ 


IFCMC.pQ.KT) iPsKT 

™. WJ?llE.{b'5DfJ|^Q3). r.lELOMP)*FIELI?<.N,Q).i.C_ 


^SLL- 

KRIT6 (K'P«?t*5065 helm lP5,FIEL!)(NC)iC 
LlJi .i3lii!)_ . 

. 

SC3 

FnRN'ATCSiS) 

. NC» I.P.^1 

* 

iPsNC 

ir|f:'C,GT:,KT)..ARI.TE(^ „ 

S(I4 

Format (/). 

, 


.%S1Sl 


G0 T0 5D1 
..CSfil.lMJli. 

RETURN 
-JNH 


ORKStm. 
Of 


pSS (5 
’^gnALfrr 


3. 2. 3. 5 Subroutina COMP 

Subroutine COMP la called by subroutine LABEL to assign appropriate 
oodss to the fields. 


3.2.3.5a Flowchart 



















3.2.3.5b Iiiatlnq 


'I 


SUORBUTINE CjjHp FUGiCi tP.PNTR) 
. ■ IHPJJLEIT ..I.LilE,g£gL J. jiaii 


C«M*’0N/RT/NRDR#^'PRTinELU(5OO)»rLOV<9OO> 

.PMTi? !1_ , 

lF(rLG.fiQ.l> CurLPVMP) 

JEirLQiEQjil) CPI .■ FL.nVMP*lL __ _ 

I F < FLG » EQ » 1 . and . F I £LP ( I P ) I GE .'SOOTANiiTn ELD ( fP ) VLE', 314 ) 

C«F IFLD(JP)«300*1 

IF(FLG,FQ.2> ir *22 

,JF<EkG,J5.. ?J Cp.;t*2J_ . . 

IF(FL6,FQ.2,pD,FLDVnP),LE,l04TAND. 

PtDYt]P)iGe.99> C*U 

lF(rLG,EQ.2,AND, FLOV’ ( IP^D'.LE ,104’. ANQi 

) cn 

-,I/JaO,6O.3.tN0,f;.O.VyP*l)j,Ogail?4j,,, A^D,rL'DVnP*U'.U. 12 «l 
CP1«11 

|F(Pl.G»ER.2;.AND,FLDVnP)’.GEil,AN0,Fl.DV( IP) ,LE,15) C»li 
IF (FIG 160 . 2 . and, FLDVTlP*i)',QE,l,ANO.FUOV<IP^i) 

cpi,»ii 

I h F L G ; E Q ; 2 ; A ndTfi d v ( i p > ; g o’. i n 9TT* r i" 

IF<£LG|6Q.2,A^'D,Ft,DV(IP + l) ,EQ,lf)9) CPl«ll ' 

lF(ri.G.eo.2,AND,Fl.DV(IP),EO,i34) C«li 

jr.(FUG, 6 G. 2 ..AMD,r^DV(IP*l) ,EQ,1.\4) cPl»ll 

IF(C.EG.CPI) PNTRrO - - - . 

.Lr:.{FLP.y.npj.eC|OL cno, 

IF<C,6Q.0) Pn-TR.1 

REIURN _ 

END 




3.2.4 UTILITY UNIT SGMAP 


3. 2. 4.1 Linkage 

This , a routine for optional printout of the ground truth data 
entered for processing, calls the special subroutines DTMAP 
SPMAP and GTMAP directly, the special subroutine CR0PP through 
GTMAP, and standard system routines. It also employs, in the 
subroutine GTMAP, the special function MPCD (CR0P) . 

3. 2. 4. 2 Interface 

SGMAP interfaces directly only with its subroutines DTMAP and 
GTMAP. Communication with those subroutines is thxough calling 
arguments and the common blocks MAP and CH. 

3 .2 . 4 . 3 Input 

All inputs are derived from the disk file output from Phase 1. 

3.2 .4 .4 Output 

Hard copy printout map of the ground truth data to be input to 
the Phase 2 processors. 

3 .2 . 4 . 5 Storage 
TBD 


3 . 2 . 4 . 6 Description 

SGMAP extracts ground truth data from the Ground truth file 
previously made by a Phase 1 operation. It then manipulates and 
organizes those data into an output format for convenient user 
evaluation. 


3 « 2 . 4 . 7 Flowchart 


£*/r€ft^ 


mc4p//!>fi./Atr 

//e. ///■> 





jM-r 
/) = / 




)£Vc 


it> a 
/ / 


I <rru> = 

UslAl;:: 


^/e/v/A'^rc 

^TA'-O 




= o 


2>c/ti? rv/^f 





Qsxrt^^r t-iUC 
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3 . 2. 4 . 8 


*"TMPUC1T-1^^TEGER (A-O) , (S-H) " _ 

BV^fc BIT 

fiYTr HPCD — 

BYTE T<0)»D<9) 

BYTF CHAR- - 

C?)MM^N/H*P/euM3060>, MT<6)| 1. 1 HE t VB < , «T ( 256 ) 

'CriMM0N/CH/CHAH(96> * 

EPUIVAuEHCE (S»BUF<6?)) 

~*trAl.r ■ T VHEtTT 

CAUl. DaTE(D) 

*■ NRURnl' • ■ •• — 

NPHT*6 

‘■WRITE<HPHTV7D3r 0,T 

0Pf" (UNlT*NRDB,NAMe«»SfiP/.P,DA7'|1 YPt«*0l.D»i 
lACCESBte *-S&nUETTTAy ' , FCRH* ’ FERKATTEC^'i C Ahrt t AGE“C0N[TR0r“ »'NCNE '• 


>03 FUHHATUHI, I J0B IMTIATCD 0N AT S8A1|//»10X» 

l*PR0r.RAH SGHAP.FTfj' > . . 

nfcAIKNRBR,70A) G^DEV.CNDEV.FI 

F0KMAT(A1»IX,2I2’ 

WRnE{KPHr,705) GSOEV»GNDtV»Fl 

“705 " rC Pi A1'T//T1. 0 X-r 1 HPX)T''T-APE • T^/Tf?XT ATr^Tm.'O X r^TE VTCF ' 

lt5*10X, tnUE N0,*M5) 

61DEV»0 

!F(GSD 6 VifcO, 'X* ) GIDcV«l 

- ■* -inGNDFViHB.O, ANI’fGNDEVVNEVir G’B* TtJ- 5 VV 

Fi=F4-l 

C-Al“U-”CU0Stl-"CN‘Rt!Tr) 

<USiT«NRDR, NAMES* MAP, DAT' » T Y Pfc » ' 0L D ' • 

lACCESSs*StQUENTlAU<,F0RM*'r0RMATTED* fCAi'KlAGE- C0NTR0ia"''N0NE* 

D 0 20 

gT<H)sO 

20 CKNTtNUE 

w«-JTE'~rNPRTY9-g9-) • ■ 

90*.< F0RMAT(//,1OX, 'C»DC T0 C;i?1Dr; TR ANSfChMAT 1 WN * , // , 8 X , • BEG I N * » 7X 

l-*bND' ,7X, *CFDE' #7X» 'SYMB0L' ) 

12 f CONTINUE 

RfcAUCNRDKi U0r"KB|NE'|N0 ' ' 

U( F0RHAT(515> 

WRITE tNPRTTltr7'NB7'NB,-N0-iT^PCD-(N0r“‘ 

117 F0RMAr(lH •3I10,VX,A1) 

* IF ( (NO.EQ.O) .AT.'D* (NK,Kt7,O)VAN'D,'<W0ib«fO? ) G0 T0*"l2? 

JF({NB,eQ.O),AHD.(Nfc,EQ,O),AND,(N0«kGi'a)) Q0 T0 124 

50 119 

JT<N)sN 0 

— 1T9"C0HTJN'UE 

G 0 TP 121 

- ■trr4"C0NTINUE ' * ’ 

D0 123 I*1*2S6__ „ _ „ „ ■ 

]22 C0NTINUE 

0 aro 

CALL t1MT<3»G1BEV,CNDEV) 

••-CAU-*-TATCH(31 7 

READ (NRDR, 555) TYPE 

-555 FPRmAT (At) 

IF <TYPE,EQ, »G') write <NPRT,556) 

-5 56 A‘T“(TM-0Tt9 XT~'t-GR 0? 1 NTT-TR tt TH--M A P-*~) 

IF (TYPE.tO, *D' ) WRITE (NPRT,557) 

-357 FCRMAT (IHO'ilOX, » A- OTRn- MAP’ ) 


S8Ali//,10X, 


T0- 40 U 


, •BE0IN*»7Xi 


inTVPEttiQi '3' ) ) 

* 555 - T0RMATUHO FtOXT' A 
REAn(NRDR,5B5) 


WRITE(NPRTi! 
^ SP0T-MAP*)- 

I check 


1 

I ' 


1i 


IF'CTYPEitQ, •')' ) H6Al3{f^RDPit>SV> ' ' 

559 F0f<MAT<2l!>) 

-1FtTYPP,eC3',»Si ,AND,IS,0T',79“) 

ir(TYP£,fcG,»Si ,A-')D,J5,GT,99 > JS»99 

tFtTYPF,fcUr’S» ) ISISJS- — 

JF(TYPE,f:a, ‘S* ) IS2»IS 

■ I-F-i-TYPP', feO * 

lF<TYPE,f:CJ, *S* ) vJS?«JS 

-tP<TVPFtNfc,*S* - 

ir(TYPF,Nb,»S»> JSl*l 

— If (TYPEiNfc^tS'O -ISJBI 

1F(TYPP,N£, 'S' ) IS281 

ff tr YPr i' fc T*.*A*^ 07 r S 7 eo 7 ota-mt3t*J»i — rstn — 

irnyPfc 'S' ,A^D, IS,PO,0,AND,JS,kC.iiJ JSZ"79 

- -irfTYPF.EO.'S' ,AMD, IS.FQ.O-.A'OiJS.fcCiy ) vsl"! 

JFavPE, fcO. 'S' .Af^O. IS.SCl.O.AND, JS.bC.O) wS2»99 

D'J -334--IT»1S1,'1S2'*39- — 

D0 334 JJgJ Sl, JS 2»99 

JS»Jj 

RT>D,0 

if«typf,eo, 'S' ) errcrssjjs^i) 

150-333 -PS = 1', 2 

CAUL TRW[)(3) 

C-Attr~*T57?rtTr3F7 

CAUL tFIue(3,Fi) 

CAUL Y«’AIT(3}-- — 

CAUL TRCAD<3,i)UF»l530) 

■••CALI, TWAUfS) *• 

WPlTp(NPf!T,5l’l) PS 

Stri-ffimA-T 

CAUL SWAR(S) 

'■•^PlTFC'.PWT,3'06-5 S» i?lFnPrnBs6i,6>5) - “ - 

306 FaRMATC SUES ',3,I5,5X,'t5AY»'ilP»PAi'M0NsH,15i5X,'¥EA«»'»l5) 
U'(TYPF,£Oi 'SI 5 ''■R1TP(MP'1T',560 5-' jScJS 

560 Fk)RMAT(lt'+»9nx» ' ISst , I5#5X, » JS»' , 15) 

CHECK .TQ‘. ' N-*- )~(J'5"TC-“lf3 

1F(PS,UQ,1> WHlTf;(KPRT,505MH,M'=liV) 

505“' F3RMATUH V lUX,9M0) 

IF'(PS»U0,2) WKiTfc <NPf»T,506) iO) 

- 90 $ F8!R»1AT-aH-*;25C# 10110') 

113 Continue 



iFiTVPb.eo, 'G* ) CAUL QTHAP ( HT * 0FFS 1 OHfeCK ) 

jF(TYPr7EO,-*D' ) -CAUL CTnAP (CPFS * CHti GA ) 

IF(TVPp,i:Q, 'S' > CAUL SPKAP(RT,3FFS#ChfctK, JS,L) 

IFICHECK.EO, 'N' J 'GC-TC-Tir— 

WMJTPIvpRTiSOO) <CMARU)i I»1i93) 

5^-FT)1TMAT U-H~V 1 0 Y79«-A1-) 

Lnio=L/io 

* IF<LD10*10,-HOiL) write 'INPR r,50T) LinU»LD10- ' 

507 format UiU, 5X, 13,2y,9SX, H) __ 

lU CCNTlNue 


■T?I? ITE Tt 51’*»'7~( Wt£’’(T>7'“t~*"’lTV'61“' 

515 FPPMATUH ,10X,20I5) 

- - WRlTE(RPPTv6t5) -L- 

615 F0RNAT(1H*, 15) 

-WRITE(NPPT7516)' 

516 F?R‘iATaHD) 

l-CCfniNtJE- 


112-- 


inCHECK,EQ, 'Nl ) G0 T0 112 

TF(PS*EC,1)' MRrTE(NPRr»505) CH|H®1*9)“ 

IFIPS.EG,?) WRITE INPUT, 506) IM-1*E'1»10) 

ccNTiNue - ' 

0FFSil96 




223 

250 

456 


6131 


610 


400 


I? (TVPE,KQi*OM 0rF$ 9 6a 
IF<TVP|,I0, »SM •rrsi2#(js»l) *9H 

-r^TTTOi 

IF (TYP6,EG.»UM G0 T0 456 
RCHiCKiU7,0»196.0»6|0 
IF(TyPE,BQ, *S‘ ) Q0 TP 250 

' r'WPttiti^RT, 223-1 

F0RMAT(//#1OX, ’THE WW0LK SEGMENT WAS 

Continue 

WRITE(NPRT,222) WT 

ff«MAT(//»10X, ^CB'MPUTATIPNS BASED <9N 
C0NTINUE 


N0I 




WHlTE(NPRT,60i) 

F0RMAT(//,1OX, »HAP CPOE T0 SYH801, TRANSh 

00 602 I«li59 

IMlwf-l 

WRITE( ^‘PPT,610) IM1,MPCD(IM1) 

F0RMATUH ,10X» 13,5X,A1) 

IIOQrioo 

WRITE(NPRT,6lO> UC0,HPCD(I100) 
CONTINUE ^ 

WRITE(MPRT,999) 

TTA-fC-trATttDT 


CAL,l, TIME(T) 
WRITE(NPRT,104) D,T 
WRITE(nPRT» 104) 0,T 
104 r0RMAT(t J0B C0MPI.ETED 
999 F0RMATI///) 

— ^'“STW» 


PN 


9A1» 


AT 


END 


" tmiARiUPt/SHBSGMAP 
C100 i43SWAB 

“^rrtm'rnrETrrA'p- 

U,13F4P0TS/LB 

''r 

ASGiSYIl 
~ ASS ■IF 16 
MAXBUFi3060 

— PtTwS-Q •' 

// 




CR0UND TRUTHEDt) 

10. 2| » SUffPirEtSS/r 

0RMATI0NT 


'16AD 


3.2.5 SGMAP SUBROUTINES 


Three special subroutines DTMAP, SPMAP and GTMAP are called 
directly by SGMAP and a third subroutine CR0PP is called indirectly 
through GTMAP. 


3 . 2 . 5 . 1 Subroutine DTMAP 



•37 







J*2.5.1b Listing 


_L_JU--^UB«0UTJ,NE^I)J.MAP_.{0-F,f.S4.CHECK) 

IHPUCIT INTEGER (A«0)|(8*E) 

BYTE MPCD 

BYTE CHAR ... 

"BYTE BUr 

C0HM0N/MAP/Dur<3O6O), HTUJ* UNE(9,1), JT(b6) 

______C0MM0N/CH/C.HaP ( 98 ). 

CALL tread (3,8Ur,180) 

CALL THAI T (3) 

NPRT»6 

b0~l3"sTl798 ^ ‘ 

Si-j„S_ij2l4LJ!£>:S 

X i BUF(SS) 

ir (XiLE’,0) X ■ X * 256... . _ 

IP<V|GT,256) write (NPRT#500) S,X 

..BOO P0RMAT<iHO|ioX, iSAMPLB iS»il3l 

IP<X',dT,256) ST0P • ■“ 

Qnap_j JTlXi ■ 

CMARKS) ■ mPcD ICR0P) 

inCHECKiEO, !NL),.LINE(S)fCp0P 

13 CONTINUE ■ 

. 


.RelUR.»l 

end 


3. 2. 5. 4 Subroutine SPHAP 


’I 













3.2. 5.4b 


ioo 

tin 


suiR0UT|Ni sPHAPifiTierrsiCHfeCK, iSfi.) 
twmxTT iTmnjtR t *» ornt • ? r 
BYTE MPCD 

errr'CWAR 

BYTE BUF 

C® M W SB N / M A F / “ ( 3 0 8 ^ f MTX 6 > $ tTNft v y 9 i T V 296 ) 
C0MM0N/CH/CWAN(98) 

- nprt«b ■ — 

|FaiNg,l,0R# IS.EQ.I) G0 T0 101 

rsMint-1 

tSSHS*!SMl 

-trr-ttrrttrn'i'ts?--- 

CALL TREAD(3,BUF,270) 

CALI TWAIT(3J 
C0NTJNUE 

CtN-TT^fUt 

CALL TRBAD(1,BUF#270) 

CAU'TwATf^tr 

P0 10 8»1|98 

ssiSiTg^trrrt- - — 

M»0UF(SS) 


IFIM.EQ.O) G0 Tfi 20 

“—trmJFTrjTtwr— 

RT-RT-^IiO 
20 CONTINUE 

CHAR(S)sMpCD(C00t^> 
ircCHECKiEQ, 'N* ) LINE(S)«CR0P 
10 C0NTINUE 

RHTirRf^) 


END 
















3.2.5.2b Listing 


SU0R0UTINE GTMAP (RTi 0FFS, CHECK | „ _ 

IMPLICIT INTEGER (A«0MS«*2) 

BYTE MPCD _ __ 

BYTE CHAR '■ '• 

BYTE BIJF 

CPMM0N/MAP/f3uF( 3O6O>, HTTMi L I’NE ( 98 > i JTr256) 
C0MM0 N/CH/CHaR(98) „ _ 

NPRT«6 

AP-539 ‘ _ 

D0 2 slp1i3 * 

AbA*540 

CALL ■ TRE AbT3, B"uF ( A )7270 ) 

CALL TWA1T(3), 

2 CBNTiNUE 

SlBf.47O^0FFS __ 

D0 3 Sail 98 ' ““ 

SiaSl^2 

“S2«Si ■ ■■ " 

PpO 

D0 4 SS = li2 

S2«S2^1 

S3«S2 

S3bS3*940 

MBBgr(s3^ 

MoM*l28 

IF(M’.NEiO) RToRTn’.O 

IF(M‘,EC.0) G0 T0 700 

I r ( M , G T , 256 L WR I TE ( NPRTi500~) S.M 

500 FPRmATVIHO.IoX, »SAMPLE »ii5,t IS‘|I5) 

IF(M.GTi256i_SX0p 

M3JT(M> 

,_700. C0NTINUE__ 

P=!P*i 

MTipjJUd 

5 C0NTINUE 

4 C0NTiNue . .. 

CALL CP0PP(CP0Pi NO 

CHAR(S)sMPCD(CR0P) .• 1 L 

IF(CHECK|E0, ‘N» ) LINE<S)bCR0P 

3 J50NTINUE 

return 

END 




m 





3.2. 5. 3 Subroutin* CRgPP 
3.2.5.3a Flowchart 


s£r 

VC so 











3 . 2 . 5 . 3b Listing 


SUDReUTlNE CRKPp'TcFnp, fic» 

IHPUCIT...lNTEGEf?...U*0).,.(S?Z) 

BYTE Bijr 

C !? M M 0il^ A P Zil Uf (306 0). M T(6)> t,l E (9Q), JT( 2 !5 6 1 

•* NCe{) 

„ D0 iO 

'~CC»HT(n 

NcO 

"D0 2b' jVi76“ 

ir(CC.EQ.MT( J) )NnN*l 

20 CBNTiNUE ' ‘ " 

_ ir(N;i,E,s'c) C0 Ta_io 

NC^N 

CROPoCC 

"ir(NC,GE“i3) return 

10 CONTINU E ; ^ 

"RET UR F . ' 

END 


3.2.6 FIRST UNIT OF FIRST MODULE (PHASE 1) 

3. 2. 6.1 Linkage 


This, the executive routine of the first unit of the first func 
tional module, calls standard system utility routines and the 
following special subroutines: S-01, S-12, S-23, S-34, S-45, 

S-55 and S-56. 


3 . 2 . 6 . 2 Interface 

Phase 1 constructs and loads input data into the common block 
3. 2. 6.1 Linkage 

Phase 1 constructs and loads input data into the common block 
"stuff (see listing) for communication with its subroutines. 

It constructs the "intercept" and ’^Header" files which are 
output to and stored on system files for use as input for the 
subsequent exaction of the companion software module (Phase 2) . 

3.2 .6 .3 Input 

Magnetic tape output from BTREAD, a translated Bendix-100 output 
data tape (see appendix A) . 

3.2 .6 .4 Output 

"Intercept" file is output to system files for storage. Print 
option is provided for listing of buffered inputs. 

3. 2. 6. 5 Storage 
TBD 


3. 2. 6. 6 Description 

"Phase 1" is the executive routine for the first unit of the 
first functional software module of the system. As such, it 
managers unit input/output and establishes the subroutine 
calling sequence for construction of the intercept file from 
input field vertices data. 




the 


3, 2. 6, 7 Flowchart 



i 

i 

















3. 2. 6. 8 Listing 

.„jC,^R0CgSSES BENOIX TAPE TP PRODUCE . INTERCEPT,/ lUES: 

IMPLICIT integer (A-0),(S-?) . 

C0MM0N /STl)rF/X6(5l2).NPRI.BUn86),NO,XU5O)iYl(?0liNl.YHlNiTHI^Xi 
• X2<55I,Y2(55I,N2iX3(70)#Y3{70).N3»X4<!»liJ)»Y4(512>,N4,X5(200|li>iJ 

C0MM0N /STATUS/WiiW2 

DIMEnSIPN YMN(500),YMX(500)irLD<900) 

BYTE. 0 ( f liXtill 

: |0,YTE SDEV' 

.J ‘CALL TtME(T) ; 

»CALL DaTE(D) 

. NRDRiiS. .. 

PPEM (UNlTBNRDR,NAMEf?*PHASEl|DAT' |TYPE«t0UD» I 

lACCr;SS,al§i3,Uf.NlrAiij£0BMElF-0.BMAJlED.UCAHHiA6E_.C0>JTR0L«JMNEll 

i NPRT-6 

I MRITE(NPRT#703) DiT 

! 703 F0RHAT(iHl,l J 08 INITIATED 0N »i9Al»f AT » #BAli//i lOX, 

. i«PR0GRAM PHASEI.FTNM 

1 READ (MRDRi30l) SDGV i NDEV » I LE 

™3Qi-,..F0RMAT(AlilXi2l2> ^ ^ ^ 

WRITE (NPRT,302) SD6V,NDEV,FILG ' 

302 FPRHATl/ZiiOX.Ai, »TMOXi ’DEVICE N3if>M5iiOXi ’FILE N0,9»ii5) 

CAUL CLPSG(NRDR) 

. 0PEN <UNITkNrDR,NAMEs»LA0EL1|DAT’iTYPB9»0LD»i . ... . . 

lACCEssn ’ sequent I AL» I F0RMS’ Formatted s Carriage C0ntr0L‘9»N0NE»I ^ 

ReAD(NRDRi305)„SiDAY*,Mi)Ni.YR 

305 F0RMATI4I5) 

WRITE(NPRT, 553) SiDAY.M0NiYR 

555 F0RMAT<//,iOX» ’SEQ, N0 , « » . I 5| 5X, » DAY» M 5i 5X| » M0NTH9 t i 

_ #I5i5x, •years' . 15) 

0PEN(UN1T“1iNAMEr'HF.AD,DAT' iTYPE9»0LD»i 

lACCESS? ’ sequent 1 AU • , F0RHa ' F0RM>,TIGD1 i .C j\im.I.A.C3.E__C0NlR0.L«fiN0N2lI 

CAUL ASSIGMI2, 'SY| INTCPT’.DaT' ) 

define file 2 I500.512.U,AV) 

IDEVsO 

,ir(SDEV'.E0i86) 1DEV»1 

inNOEV.NE.O.AND.NDEV.NE'.l) G-0 T0 9 

CALL . TlNITMilDEyiNDEV) j : 

CALL TATCH(4) 

‘ CALL' TRWDI4) l._ 

CALL' TWAIT(4) 

CALL TFILE(4,(fILE*1>)_ 1. 

CALL TWAITI4) 

NRECbO 

■I'CHNliNUE- ■ ■" ■ 

CALL TRBAD(4,PUF,fl0) 

CALL TWAITI4) 

IF(W2,GT»160) WRlTF(NPRTilCil) flUF(?) 
iOl F0RMAT(t field »,115it EXCEEDS THE SIZE ALLOWED F8R BUF‘> 



ORIGINAL RAGfe . 
OP POOR QUALITY 


£ 


„ WR I TE < NPRT^ 1 08O.yf_ — 

iOZ r0RHATUHOiiei7) 

tr(BUF(2>,BQ. 100311 00 T0 2... 

NOpBUF(I) 

. FlELDPRUFiZ) - 

CALU 801 

NREC»NREC*1 

ymn<nrec)pymTn 

VMXCMRECJpYMAX 

FUn(NR6C)*Fl6L0, 

CALL 812 . . 

CAU 823 
CAM, S48 

CAI.I, S5S 

CALL S56 

WRITE(2»NREC).Xd 

IF(NRECiEQ<500) 00 T0 2 

^Q0..T,0..J^ ^ 

2 C0NTINUE 

WRlTE(li201) „NREC 

201 F0RMAT(115> 

WRlTE<li202),.(YMN(t)iiniNREC) 

WRITE(li202) (YmX(I>i I' liNREC) 

WR 1 TR ( 1 • 2 0 .2 Li IJUll tiiiMCi 

202 F0RMAT<5O15) 

5 C0NTiNue 

CALU TRWD(4) 

.. CALL TWAIT(4) 

CALL DaTE(D> 

^CALL II.MEUD 1_ 

WRITE(^JPRTi104) d,t 

WRlTE(NpRTjl04)„D,T 

104 F0RMAT(l J00 FINISHED 0N «i9Al,» 

CALL_CL0SEi6l 

ST0P 

END I- 


VT tiain 


_ - ■ 

TT 




3.2.7 FIRST UNIT SUBROUTINE (S-01) 

3. 2. 7.1 Linkage 

Called by "Phase 1" with simple return. 

3-2*7. 2 Interface 

Communicates with calling routine through the common block 
"stuff" (see listing) . 

3. 2. 7. 3 Input 

All inputs are derived from the common block "stuff". 

3. 2. 7. 4 Output 

Option is provided for trouble shooting printout (listing of 
working buffer contents) . 

3. 2. 7. 5 Storage 
TBD 

3 . 2 . 7 . 6 Description 

S-01 is called by Phase 1 to load field vertices into X and Y 
arrays; and finds the maximum and minimtim Y coordinates for 
each field. 
















3. 2. 7. 8 


Hf J'HTRAN 

sci,rTv 

fiClL 


ue.ai 


c:?3 


"SI 


:oc4 

1J2JL 

1£.ML. 

•cifl 

liU. 


0C12 
'•Ui 


1314 

‘1S15- 


0316 


3317 

laifi. 


coi? 

C320 


T0?1 

J3?3 


3C24 

0U25 

3326 


IV-PL'-";' VQ2-0< 

/TT{ iL-''C-<S/'WR 

c RF-APS sup IVT* VI 6 


17127117 22-AP8-77 


PAOE 1 


yFaNP Ff 'OS'v^SK t YMAX 
1N'’LIGJT P.TKGER (s-3)i<S-?) ^ ^ 

/GT.)rr/V6(ijl2)|.V«>7T,Ol.T(eo).NO»Xl<50)*Yl(50)»Nl»YMIN,VHJX 
•Y.2X55) '2iX3(70)tY3(70),V3,y4(5l2),Y4(5l2)»N4»X5(288#U)» 

~Y‘MVal'’030 

YilA-X S.?Lia.?.9.3 


JB 

I»3|NQ|2., 
Vb s jr ( 1 ) 

iny.u^ .vMiD) 
■ILLV.aii:.mU- 


Y l?f N'a Y 
VHUaY 


n.{^J)aV 

VKGisV 

1 c:'i TT*'Ut» 
i .| 1 a J 


i^ygRLAP g aciTH enq.S.. 


101 


vi<i)Bi<i{ jy 

J='Jn 

_Xl( 2 l)a'vi ( 2 )„: ^ 

Vir)j)aVi( 2 )y 

IF( J'.^T', 50 ) VRITE<^'P»T*in 2 ) RUF( 2 ) . , 

TT~^i4TT*"Tl^rr"‘*Tn exceeds the size ALUBwED pfiTR XI * Vll 

v; R I Tf < '■ P " L» 1 3 1 ) { I . X y I > I.Y 1 < 1 ) • I ■ 1 1 J >■* 1 *.Y M I N »JYH A X 

■vn^ViTiw ra'fic) 

Ji E2JJ |V 

ENn 





3.2.8 FIRST UNIT SUBROUTINE (S-12) 

3.2 .8 .1 Linkage 

Called by "Phase 1" with simple return. 


3. 2. 8. 2 Interface 

Communicates with calling routine through the common block 
"stuff" (see listing) . 

3 . 2 . 8 . 3 Input 

All inputs are derived from the common block "stuff". 

3 .2 . 8 . 4 Output 

Option is provided for trouble shooting printout (listing of 
buffer contents) 

3. 2. 8. 5 Storage 
TBD 

3 . 2 . 8 . 6 Description 

S-12 is the second subroutine called by "Phase 1". It removes 
redundant points from the field vertices data and the returns 
control to "Phase 1". 



3. 2. 8. 7 Flowchart 


■ i»i+i ! 

1 1 


i 


I 



SET 

jssX 1=2 




1 . — 

SET 

YY2=Y^(I) 

YY^^Yj^d+l) 



Y 


X YY„=YY., 

‘ Z ^ ' 



SET 


1 J=J+1 1 

1 X2(J)=Xj_(I) I 

! Y2(J)=Y3_(I) i 






(MAKE OUTLINE 
OVERLAP AT BOTH ENDS) 


SET 

X2(1)=X2(J) 

Y2(1)-Y2(J) 

J=J+1 

X2(J)«X2(2) 

Y2(J)=Y2(2) 

J=J+1 

X2(J)“X^(3) 

Y2(J)=Y2(3) 



I WRITE; 

I I, (X2)1,Y2(J) ,I=1,J)N2 


RETURN 
I END 




ORiGiNAl PAGE IS 

OF POOR QUAlilY 


.... 




1 


3. 2. 8. 8 LiBtinst 


Mrji^ T « hkJJizP Li! 'i.. V D 2 r Q 1 

«i?.fT,'' • /T'’r-L''C,<S/w.'^ 

’ S.--P'-jTIVi: S12 


17127150 ?2-APR-77 


PAGE 


0002 

o:o3 




j I 1 c a 

c RrMr'vl.S *U;0UN')A'.'T P."1 TS PK''.* XI A VI S:^ THAT 

C L‘'£^>-AR£-.AI T'.s: JCe'.’Tia 'PUS)..P;M^TS PN A LINE. 

H'PLK’T 1^ T‘=G-M < '-n>i (S-a)' 


IP'-LlCw r ('*•'!> I «>- •») 

/RT"Fr/X6(5l2) »».PGr,H'ir (bO) ,N'1,yi(5C'> , YJ (50) ,N1 iYMIM,YMA 

'■ ' ''.’“ir .^<la 4 «aAk«>kik.P>Ai V»t ki^«r ..A 4 .VfSi 9 A(*t. 44 % 


f.c.u 


JB^ 


ton'i 

0006 


bf‘ f 

Vr< SY 1 ( i-n . 


ocn? 

f OOfl 


YY2pv\{ 1 ) 

yy:<cvi n*i> 


0009 

PCIO 





C 

P-II.T I p A KlinUMDA.'i 

T P0!nt 

rou 


'i'. T? 

• 

0 012 

C 

2 f3f 'Tl'jUE' 

PMNiT I IS V'lT'A ^enU'.'DANY P2tNT 

L'Cl 5 
t£J 4 


X2< J^=/" ( 1 ) 


poB'"' 

POif! 


V2{J)sYl{ 1 > 
1 Cl‘>iTI'.UP.‘ 


0317 

C 

i<»;aJ !' 

MaKF 71'TLl'Jf; OVERLAP 

AT yzTH CKnS 

ooie 

COl 9 


V2U js\'2( J> 
Y2(n5vp(J) 

■ 

Cz?.o 
0021 . 


Ja.ltl 

V?i; J)sX2(2> 

• 

(T522 


Y2(J)av;?(2) 


CC23 


JB.Ul 

■ 

3020 

0025 


Vi (J)3Y2{3) 
Yi( J)svp(3^ 


0326 

0027 


Jr( J'.GT.bb) MhITP( 

io? r;,r;.‘isK' riGLf' * 

'rPT,102l P0r(2) . „ ^ . 

,115. • r-Xf^EEDS THE SIZE ALL0WED F0R X2 « Y2* 


b 

wr I TC ( \pR‘T, ioi > (1 

,X2n).Y2(l),Ial,J)»''l2 

3Q2G 


10? ft->''at (1^1 ,SIl.r.) 

. .... - 


^ 0 329 


f>*:TUR\ 





3.2.9 FIRST UNIT SUBROUTINE (S-23) 

3. 2. 9.1 Linkage 

Called by "Phase 1" with simple return. 

3 . 2 . 9 . 2 Interface 

Communicates with calling routine through the common block 
"stuff" (see listing) . 

3. 2. 9. 3 Input 

All inputs are derived from the common block "stuff". 

3 .2 .9 .4 Output 

Option is provided for trouble shooting printout (listing of 
working buffer contents) . 

3. 2. 9. 5 Storage 
TBD 

3. 2. 9. 6 Description 

S-23 examines the field boiandary points (vertices) , selects 
out those which are critical points (points of inflection, 
maxima or minima) then inserts redundant points to properly 
account for such critical points along field boundaries in 
the following field dot mapping process. 



3.2. 9.7 riowohart 




J=J+1 

y3(J)»Y2(I) 



X,(I+1)<X,(I) 

















a. 2.9 «t ^. Listing 


HF *«TRAN IV-FLMS 
S2!^,FTN /T 7 

50 a 1 siAi-'jun'.e 


0.1 CJL. 

0C03 


17I2P1C5 22-APR-77 


nSI* 

PAGE 1 


C004 

PJU5- 


cea6 

. O.C.07. 

rcoB 

CC-09 

I. coio 

PJJU 

C.C12-. 


/T 

, • .... — . . . . 

INSERT', P*M'‘TS at MMhAi A^'D • INFLECT 10NS 

l*'PL!C!T l’*TFG=R 

Ci'".*' ' , /?T!'iT/X6(|?l2rif P=JT,3'.F(80) i\C.X 1(5(“<)#Y1I50),N1,YHIV,YHAX. 
.#X2(vS), v?ri5i),‘ ZiXr^lTOliYiSr 7r),N3,X4{5l2), Y4(5l2)»N4iX5(20O,ll),. 

j#0 

2il,JL_1.52 ..N-l . 

.VYl»v;n-i) 

.vy:>ey';< i ) 

Yyj»v*;»( t*l) 

Vy/IiBV V f I *2 ) 

• ClJ:syY?-VYl 


CwECK T * -ifcE ff 




CHfcC^ T* Sr? IF P 


•r:TS 1 
' TrJ 2 
'PTS I 



CP 13 


IF -y' Tt' .3 


' 

C 

CriEPK T ’ 'tc-'i !F F-'U’TS 1 S < 1 - 


0 .?T. 4 _ 


LPJ.^:!l‘•^ "T ,.o,v, A '.'0 , a• 23 it 3 ^ 


CC 15 


IF(('‘\r,LT,n,AND,<L‘ 2 .J.LT, ■ 




Pt'lNT 1 IS A •'AXl 'U ‘1 F s'.l'S'If'! 


0 C 16 


U * J ♦ t 


0 fl 7 


X 3 (j)sv?n) 

c 

COlO 


V 3 ( j)sV 2 (i) 


Of IP 


C? T* 3 


0 C 2 C 


2 rpATlWE 

c 


c 

P-'l'iTS t » M"l) l*lRhT Ft-PPI* 


c’olT" 


D 3 ASVYA-YY 3 


CC 22 


IF(('U?'.ST.O).AND. (C 34 .lt,’ 


0023 


1 F( OlP.LT.aKAVl, (D 34 .GT,’ 



c 

PpUTS T ^ ( 1 * 1 ) ARP POINTS .TF 


0024 


JsJ + l 

c 

CC 25 


V 3 (J>s'?n) 


0026 


- rF<XF(N, t)’.LT,X 2 (m G'^ T^ 


« “(Nl) are a TW?i-P 01 NT maximum 0 R HtMiMUM 


1) 


aRE a 
m T0 

T0 


0NE-P»iNT maximum PR MINIMUM 

3 _ __ 

3“ "r 


C 0 C? 7 ~ 
PC?fl 


0029 


1MFLECTI0N, 


'i2 


TO 3 
TP 3 

inflection 


p.iy A _P = A f*'T P'lA'T 
i;3( j)=”2(l)*3+'’Ono' 
a/ T ? 3 


.’f , f^JlN'T . 1 . AN'D.X 4 G. by,, adding >opo_ 


Pi' 

A 


1 r. -E 



olYaT" 

•X3( j5sV2< 1 )-1 + 5000 


0031 

? CP‘'Tl'.UC 

0 

Eism 

»J s ^) * 1 . 


[«En 

.X3(j5sV^{ I > 


CC34 

Y3t J)s'^2( I ) 

G 

0035 

___ 


0C36 

' JaJ*1 


Q.Q.37 

X3( J)s 'iSd.) . ... 

O 

0C3B 

Y3(j)sV3a) 


()P3? 

N3a.i __ 


f» 0 1 0 

|F(j; r,T.70) >KI7V,( 

• 

0041 

10? FK- ■^T( • FirtP • 



'■“C '-F i (‘'PPTild) (I 


0C42 

lOl F<."''vT(J.:.i .,.3iru^_ 

S' 

C043 

RF ’’l,-) v| 


HiJ 

6NP 


P’l*'T T? LEFT PF POINT I AND TAG BY ADDING 5000 


tXCkEDS THE 


SUE ALLPHEC FOR X 3 < Y 3 *> 




-'TTFa'lvX'^'^AGr'lB — 
POC:'I y'lAM’TY 



32. XO FIRST UNIT SUBROUTINE (S-34) 

3.2.10.1 Linkage 

Called by "Phase 1" with simple return. 

3.2.10.2 Interface 

Communicates with calling routine through the common block 
"stuff" (see listing) . 

3.2.10.3 Input 

All inputs are derived from the common block "stuff". 

3.2.10.4 Output 

Option is provided for trouble-shooting printout (listing of 
working buffer contents) . 

3.2.10.5 Storage 
TBD 

3.2.10.6 Description 

S-34 defines field boundary intersections with scene lines 
Which are intermediate to those of the input specified field 
boundary vertices . 



i.2.10.7 Flowchart 


C ENTER ^ 

-ELJ 



SET 

Xb«X3(I) 

V^Y3(J) 

Xjj»X^(I+l) 

Yjj-Y3(I+1) 

J-J+1 

X^(J)-Xg 

X4(J)-Jb 

JNC-Yj^-Yg 


Xg-Xg-SODO 




RDX- (Xjj-Xg) PLT 

RDY»(Yjj-Yg)FLT 

RS»RDX/RDY 
RXB-Xj 

INC-1 


RXB-Xg(FLT)+.5 



INC— 1 




Y» 




J-J-M 

Y-Y+INC 

RY-(Y-Yg)FLT 

Rjj=RjjB+Rs*Ry 

Xy(J)»Rjj 

Yjj ( J) =Y 









WRITE 








wfPRTHAN .IV-PUi^ VC2-Q4 
W4,rT\ • /T'^Jf=L.'C*<S/kT 

(I act ‘ ■ SL»:*i4i‘.]Tt ;e 

C riLLb Iw ".lSSf?v5 U'lts 
aao2 ib^LiciT rT!tv?^fi (a 


l7«2fll23 


22-APR-77 


PAOE 


G)i (5-H 
/ST;irf/X6(I>^2)#‘P''<T, 


0004 

P0C6 

C32J- 

no06 

^sa. 


ur(en),Na*Xl(5n)iYl{50)iNl,Y«IN»rM4 
•A.a/5'?) »Y?<yi>),s2,X1(7D)» V.3C;o),\3f y4(5i2),Y4<t»12>»N4»X5(200ftl). 

K3s\3-t 

Js ^ 

G.;)*! i«l,N3 
J.;?5.X3(.U. 


0010 

raii- 


V0«Y3{ I ) 
;£1':sX3.(1*1L 
VNrY 3( l+l) 

.,.Ja .l *£. ,• , , 


0012 

OJU. 

0014 

1215„ 


X4( J)8;<B 
j j s.ya._ . , 
!.^nsV>v-Y^ 


C 

JL 


M|S3I' a 


LP'fns 

ncfj 


MUST 


.Tvi 

■’£ 


niLED 


IN 


0016 

R017 


ir{X'->.M.3''0n> X’'BXB-500a. 

If (X'l.GT.'.GnOn) ..XMSX.V-5000 

''016 
0 9 1 9 


-<:)X3FLt^AY(XN-X'V) ’ . 

«f)vsrL:^AT{YAi-yn) 

1)020 

0921 


^SsRTX/pr'Y 

. 'fXP = r.L;"ATiXB.)lG..l.... 

0022 


iMCsj. 

_11P { liS. yA L tiAt 0.) ...LNC? *• i - ... .. _ 

- 

0924 

y M V ^ 

C rtLL f\ LIMPS HPT''£PN' (PUT M0T INCLUDING) P01NTS I ANfl (l+l) 

0025 

0326 

3 

Ci1'T!UUE 

fs.uT • 

5 927 


YsY^l’.C 

^VsFi.- AT(YnYa) , 

0329 

!)J3i) 


■•?X = BX‘) + K$*BY 

..XKJisOx. - . , .. 

3931 
'?932 ■ 


Y4( J)sV 

..ip{.y'.?ip'..YN> .Gi'._.Tn...a 

0033 

■1531 

1. 

Usj»l 

Qi; ••.TjNUe 

5035 




S 4 a J 

IP<U'.GT'i'»ll> f.'>ITE(.MPRT,10'») RUP(2) 

0:37 

102 

D 

FIPL: Ml-ii* EXCEEDS THE SIZE AULPKED F0R X4 "4 Y4'> 

M J] r-:rvPPT,151) (l.XA(I)iY.in). I=1VJ)»N)4 

3530 

9039 

ICI 

p-.'-' i3uo) ... 

'fHTU??'.' 

3040 


h>l') 



' 0 



*> Aas.1 


3.2.11 FIRST UNIT SUBROUTINE (S-45) 

3.2.11.1 Linkage 

Called by "Phase 1" with simple return. 

3.2.11.2 Interface 

Communicates with calling routine through the common block 
"stuff" {see listing) . 

3.2.11.3 Input 

All inputs are derived from the common block "stuff". 


3.2.11.4 Output 

Option is provided for trouble-shooting printout (listing of 
working buffer contents) . 

3.2.11.5 Storage 
TBD 

3.2.11.6 Description 

Collects all field boundary intersections with given scene 
lines (intercepts) . 

















3.2.12 FIRST UNIT SUBROUTINE (S-55) 

3.2.12.1 Linkage 

Called by "Phase 1" with simple return. 

3.2.12.2 Interface 

Communicates with calling routine through the common block 
"stuff" (see listing) . 

3.2.12.3 Input 

All inputs are derived from the common block "stuff". 

3.2.12.4 Output 

Option is provided for trouble-shooting printout (listing of 
working buffer contents) . 

3.2.12.5 Storage 
TBD 

3.2.12.6 Description 


S-55 examines all intercepts, identifies all which are of special 
character or purpose, and places them in proper order. 
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3. 2. 1^.7 Flowchart 


G 


ENTER 
V S-55 


SET 

NEND»X5(L,11) 

N0DD*NEND- 

2(NEND/2) 


a. 

YEND»YM 

1 ^ 

^X-YMIN+l 

ssQ 

\ _ . _ 
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SET 

LINE=L+YMIN-1 

WRITE 

"ODD NUMBER OF VERTICES 
ON LINE XXXX OF FIELD 
XXXXX" 
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1-NEND 


I«NEND 
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X-Xj^(I) 
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REDUNDANT PT OF INF. 
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RETURN ^ 
END I 


X5(L,I)=X^(I) 
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3.2.13 FIRST UNIT SUBROUTINE (S-56) 

ft 

3.2.13.1 Linkage 

Called by "Phase 1" with simple return. 

3.2.13.2 Interface 

Communicates with the calling routine through the common block 
"stuff" (see listing) . 

3.2.13.3 Input 

All inputs are derived from the common block "stuff". 

3.2.13.4 Output 

Option is provided for trouble-shooting printout (listing of 
working buffer contents) . 

3.2.13.5 Storage 
TBD 


3.2.13.6 Description 

S-56 packs ordered intercepts into a one-dimensional buffer. 



3 . 2 . 13 . 7 Flowchart 


ENTER ) 
s-56 y 


SET 

YEND-YMAX-YMIN+1 

J-0 

L“0 


L=L+1 


TAG lx VALUE IN EACH 
LINE VIA 5000 ADDEND 
X5(L,1)=X5(L,1)+5000 
1=0 


1 = 1+1 


SET 

J=J+1 

X6(J)*X5(L,I) 


I=NEND 



J>511 



WRITE 

"FIELD XXXXX EXCEEDS 
SIZE ALLOWED FOR X6 


Ng-J 



L-YliND 


Xg(512)=Ng 
WRITE Xg(I)I=l,Ng 


RETURN 

END 
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3.2.14 SECOND UNIT OP FIRST MODULE (PHASE 2) 


3.2.14.1 Linkage 

This is a stand-alone program which calls only standard system 
utility routines. 

3.2.14.2 Interface 

Two pre-loaded system files are used to interface with the com- 
panion program "Phase 1". 

3.2.14.3 Input 

All inputs are drawn from two system files loaded by a previous 
execution of the companion unit "Phase 1" and one system file 
loaded by a previous execution of the companion unit BTREAD. 

3.2.14.1fi Output 

The main output product is a magnetic tape containing ground 
truth data in Universal format (see reference 1) . This is 
accompanied by a per-line print out of field start and end 
positions and of the crop type. Provisions for optional 
trouble shooting print out are included in the program. 

3.2.14.5 Storage 
TBD 

3.2.14.6 Description 

Phase 2 operates on the "Header" and "Intercept" files con- 
structed by a previous execution of the companion Phase 1 unit. 
Phase 2 also uses crop label files w-ich are constructed by 
the program BTREAD. It organizes those data for output as a 
properly structured "ground truth" data tape (magnetic tape in 
Universal format) . 




3.2.14.7 Flowchart 


ENTER 
PHASE 2 


INITIALIZE 

• ASSIGN DISKS 

a) 1-HEADER DATA 

b) 2- INTERCEPT DATA 

• DEFINE FILE (2) 

• SETUP TAPE 

• ASSIGN UNITS 

a) 4-CARD READER 

b) 6-PRINT UNIT 

• ZERO BUFFER 

BUF(I)-0, I-l-^3060 



LOAD CONSTANTS INTO 

BUFFER 



BUF(I) 

-a, 

ACCORDING 

TO THE 

FOLLOWING 

TABLE; 

I 

a 

I 

a 

“IT - 

TH 


T 

89 

1 

106 

70 

90 

1 

109 

1 

91 

8 

110 

1 

93 
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111 

-120 

96 

1 

1778 

1 

97 - 

120 

1786 

1 

100 

2 

1787 

1 

101 

28 

1788 

-120 



WRITE CONSTANTS ONTO TAPE 

















































3.2.14.1 Listing 


C PROCESSES INTERCEPT riLE T0 PRODUCE UNjVERbAl. TAPE 
IMPLICIT INTEGER <A*Q>»(S"2) 

DIMENSI0N )fl(512»iYMN(5OO).YMX(t5OOl,rLD(5OO)iCR0P<5OO) 

0YTg X2{392,60),Bun3060)iTUri2>iT(8hD(9),SDEV 

equivalence {Bur(73),x2(iiin».(Tura)iLLu 
equivalence tSiBUr(87n 
C0HM0N /STATUS/W1 iW2 
call TIME(T) 

CALL DaTE(D} 

nrdoil 

NRCR«4 

NPRTh6 

WRIT6(NpRTi703) DiT 

703 r 0 RHAT(lHl,i J0O INITIATEn 0N »|9A1,'.AT ' i 8A1 ,//, 10X| 

1«PR0GRAM PHASE2,FTNM 

0PEn (UNIT.NrDH,NAME»*PNASE2|DAT*,TyPEi»0LD»i 

1 ACCESS# » sequent I AL» I r0RM«'F0RMATTEpi I Carriage control* 'N0ne') 

READ{NRDR|701) SDEV,NDEV,r|LE 
901 r0RMAT(AiilX»2l2> 

WRITE (NPRT.302) SDEVi NDFV. FILE 

302 F0HMaT{//|1OX,Ai, «TM0X, •nEVICE' N0,#M5aOX< ‘FILE N0>'il5» 
CALL CUflSE(NRDR) 

0PEN(UNIT»=NRDR,'NAMR« tLAUf4L',DAT' iTYpEb'OLD* < 
IACCESSi’SEQUEnTI AL*|F 0RH='F0RHATT6n* iCaKriaGE CONTROL* ' NONE M 
READ(NRDR| 305 > SS|DAY|M?fN,YR' 

305 F0RHAT(415> 

0PEN(UNlT*liNAME#*HEAn,nAT* |TYPr:#'0LCS 
lACCESS # • sequent I AL ' ,F0RMa' FORMATTED' I Carriage C0NTR0L*'N0N6» I 
0PEN(UNIT = 2iNAME»' INTCPT|DATSTVPE*t0LD' < 
lACCESSutDIRECT' ,P0 RM#' UNFORMATTED' .carriage C0NTR0L4 • NONE * , 
2REC0RDS12E*256iMAXREC#5OO|ASSOCIATEVAR|ABLE*AV) 

I0EV#0 

inSDEV.GQ.88) IDEV«1 
IF(NDEV.NE.0,AND.NDEV,NE’.1J G0 to 14 
CALL TINITO.IdEViNDEV) 

CALL TATCMI3) 

CALL TRWDI3) 

CALL TWAIT(3> 

CALL TF1LE(3,(f1LE-1>> 

CALL TWAIT(3> • 

P0 12 l*t#3060 
BUFIDbO 
12 CONTINUE 
SbSS 

BUF(61>«DAV 

8UF(62)«M0N 

BUF(63>bVR 

WRITE(NPRT.306) S, {0UF< IB) , I«»6l,63) . . 

306 F0RMATC ' SITE* • , 1 15, 5X , ' DA Y* ' 1 1 5i 5X, ».M0N* ' . 1 5| 5Xi • YEAR* • 1 1 5) 
CALL Sl-'AB(S) 

aUF(Al)*-i28 

3UF(B9)*1 

pun90)«i 

BUF(91>*8 

BUF(03)b1 

BUF(96)*1 

BUF(97)**120 

BUF(100)*2 

BUF(101)*28 

BUF(104)*1 

niiFdnAtaTn _ 


3 


9ur<io9)»i 

BUF(110)il 

BUFdlD'-l^fi 

Bur{i778>n 

eur(i7B6>«i 

Bur<i7e7)«i 

8ur(i7«e)"-i2o 

CALI. TWRIT(3,euril5S0) 

CAUL TWAITO) 

rewind 1 

READUiZOl) NrEC 

201 F0RMaT(1I5> 

READ<1»202) (YMnU >1 dl.MRFC) 

READU,202) <YMX{I)i l«tiNREC) 

READa,202) (FLO<niId»NREC) 

202 P0Ri-.aT(5OI5) , 

D0 1 I«l»500 

CR«P(n«0 - - 

1 C0NTINUE 

900 r0RMAT(//i 10X° 'PlELD T0 CI?rB TRANSF0 RHaTI 0N» i//»7Xi ’FIELD* |2X| 
i»T0*,2Xi 'FIELD'|6 Xi *C0DE' > 

2 C0NT1NUE 

READ(NRDR|203> rS|FE|C 

■ 203 F0RMAT(3I5) 

WR!TE(MPRT,2Q6) FB.FE.n 
206 F0RMAT(1H ,3I10> 

irCC'.Et!,-!) G0 T0 555 
1F(P8,EQ|0) G0 T0 4 
D0 3 i«F5»re 
cR0pn>!«c 

3 C0NT1NUE 
G0 T0 2 

■ 555 C0NTINUE 

D0 501 181,250 
1181*250 
CR0P(I Del 
501 CR0PU5 8 1 

4 C0NT1NUE 
LU«0 
LMN--79 

D0 13 L0«P“1»5 
LMN8t iiN*0O 
LHX«lMN* 79 
D0 10 I8l<392 
D0 11 j«i.ao 

X2(J,J)»0 

11 continue 
10 CONTINUE 

DO 5 NbIiNREC 

D WRITE<NPRTi208) YMN ( N > , YMX < N I , FLD ( N ) 

208 rORMAmW ,3110) 

IF<(VMX(N>,LT,LMN>,0R,(YWN(N),QT,LMXn GO T0 5 

LpYMN(N)*LMN 

FIELD8F).D<N) 

K«CR0PtFlELD) 

IF(K',Eq,0) G0 T0 5 
K«K-128 

read(2in) n 

N18XK512) 

D WR1TE<NPRT,808) < XI ( 1 ) i 1 "1 . Ml) 

666 FORNAmH ,2016) 

D0 6 diiNl.O 

X08XKI) 

xE8Xin*i) 

n UPTTCf»'OBT.«*«1 f . VB. Vr . IT . I 


e 

Q. 


D 


D 


ir(Xl.LTi3000) a* T9 7 
TAOaeO X«VALUf II cMKECTiO lY lUtmcTINQ 
K8iKB«9QOO 

TAGOEO X«VALUE t|GN'«.S START 07 A NEW LINE 
L«L*1 

7 C0NTiNUE 
IF(L'.LT.l) G0 T0 A 
IFtL'.GT.BO) Q0 T« 9 
WRIT|{NRRTi207) IiXBiWEiKiL 

t07 FBRHATUH iS!20) 

tF(XliOY.392) G0 T0 6 
1FIX1.LT»1> 00 T0 6 
IF(XB,LTi 1) Xatl 
IF(XStQTi392) XIPS92 
D0 0 JtXSiXE 
X2(J.L)«A 

8 C0NTINUE 
d CONTINUE 
5 CONTINUE 

K>CR0P(9OO) 

IF(K'.Ef3,0) G0 T0 19 
K«K«126 

00 19 QLa32,S92.30 
LiQL«LMN 

IFML.LTil)|0R.<LifiT,eon S0 TO 15 

00 lA JR1 i392 

X2<J,U»K 

16 continue 

15 CONTINUE 
00 17 Lfli«0 
00 18 JR21>392«20 
X2(J,L)«K 

18 CONTINUE 

17 C0NTINUS 

19 CONTINUE 
Al«l»392 
A2-71-392 
00 9 L»1 i80 
A1-A1*392 
A2»A?»392 


inLLiOTi391> G0 TO 14 
LLL«LL 

CALL SWAB(LLL) 

9UnA2)«TUF(l) 

BUF<42*l>PTUr«2) 

CALL tWRIT(3,BuF<A1),270) 

CALL TWAJT(3) 

WRITE(NPRTi204» ( X2( 1 1 L ) 1 1 «1 • 100 ) 

204 F0RMAT(1H ilOOll> 

9 C0NTiNUE 

13 CONTINUE 

14 CONTINUE 
CALL TE0F«3) 

CALL TWAIT(3) 

CALL TEons) 

CALL DATE(D) 

CALL TIME(T) 

WRnE<NPRTi209) 0|T 
WRITi<NPRTi209) D|T 

20iSi FORhaTII job CoRFLETED bn '|9A1i* AT 
ITOP 
END 
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3.2.15 SECOND MODULE - FIRST UNIT (SPATL) 

3.2.15.1 Linkage 

SPATL is a stand-alone program which calls only standard system 
utility routines and the special subroutines TAB amd ZAP. 

3.2.15.2 Interface 

Communication with subroutines is through the calling arguments 
and the common BKl. 

3.2.15.3 Input 

SPATL requires input of a "ground truth" magnetic disk file 
product of an earlier execution of the first module of this 
system and of card entries of corresponding analyst "dot" labeling 
data (see Appendix A) . 

3.2.15.4 Output 

Printout of accuracy assessment parameters (see Appendix B) ' 
including: 

1. True wheat proportion 

2. Proportion of wheat pixels on field boundaries 

3. "Dots" labeled by ground truth 

4. Probability of misclassification of analyst labeled dots. 

A complete description of the SPATL printout is included in 
Appendix B. 

3.2.15.5 Storage 
TBD 

3.2.15.6 Description 

SPATL compares ground truth data with analyst dot labeling data 
to determine the accuracy of that analyst labeling. 
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3.?. IS*: 8 lilitinq 


implicit integer 

BYTE. Bur(3060),T(B),D(9)iKS 

CBMM0N /BKi/RA(296.6),HC0DE(256l 

DIHfsNStBN QT(Uil9)« KT(26),A|(ilil9)«./T(t9«Ii 

•REA(256#10>|MtU) 

DlMfcsjSlBN 0P(Uil9) 

OlMgNSiaN LCOD£(iO)_. 

equivalence <8iBUr(67H 

CALL TIME(T) 

CALL DATE(D) . 

— 

NRORi2 

iJPRT?9 

WRiTE<NPRT,703) 0,T 

0PEM(gNIT«NRDRiNAHE*ur,DAT*iTYPE»»0LD». .. 

• ACCESSES » seguent I AL*iPf5RM«» Formatted 'I carriage c^ntrbli •n0Nei) 

^PENIUNlTsN'RDDiNAMEeiSPATLiDA'TMYPE^gLP’/ 

i> ACCRSSi*SECUBNTIAL‘ iraRMiHrBRMATTED^iCARRlAGE C0NTR0L*»N0NEI) 

JLM„T0RMAT U08.J.NUI AT.EIL(5U LiSAUJ AI UUl^JJLdiMa 

i‘PR0QRAM SPATL'.FTNt} 

. . . READ(NRDD|704) GSOEViCNDRViri 

704 r0RMATIAl»lXi2l2) 

. , WRITE(NPRT|705) GSDBV,QNDEViP1 . ... • 

705 P0RMAT(//ilOX, 'GROUND TRUTH TAPE* #//ilCX, All 'T» liOXi lOEVICE N0,fr, 

l.l 5 1 1 QX •ItlLE-NPalliiJiJ 

QIDEV«»0 

inCSOEViEO'. »X' ) 6I0EV«i. , 

IF<GNDF.ViNE,0',AnD,0NDEV|NE.1> 00 T0 400 



CALL TiNmS.ClDEViONDEV) 

QAU TATCH{3.) 

CALL TRW0(3) 

CALL. TWAITO) 

CALL TnLE{3,Fl>. 

CALL TWAITOJ • 

CALL TREAD{3,DuF|1530) 

jCALL ...T.WA LILli . ^ 

D0 20 Mgl|256 

JT(M)a.O : 

20 CONTINUE • / 

CALL SWAR(S) : 

WRITR.(MPRT»306) S, (0UF(IB),IB«4ij63) 

_5O.6„F0RMAT (.i._£ll£.» Li 1 1 5.1 5X iiP.AyjL.la 1 5.i 5XjlH0.NgliJ.5j.5JLii.YEiR«-LAJ.51.,. 

CALL ZAP 

. WRITE (NPRTi905) 

905 F0RmaT(//iIOX, »C 0DE T0 CODE TRANSFORMATION' i//iOX, 'BEGIN! ,7Xi 

I'ENDi , 7X| *C0 DEi ) 

•121 C0NT1NUE 

REAp(NRDD»ll8) N0|NEiN0 ■ 

118 r0RMAT(3I5>, ‘ . 

WRITF'* ’RTill7> NB,NEiN0 • 

117 F0RMA!ilH ,3110) , , . ’ ' 

IF((NB',EO,O),ANOi(NE‘,EO,O>.AND.(N0'.ECi,n>) G0 T0 i:>2 
IFUNB'igQ,0),ANO«(NE,EQ.O)'.ANO'. (NU'.EQfU) 00 T0 224 

D0 1 19 N»NB|..NE., 

JT(N)»N0 

119 CONTINUE 
00 T0 121 

224 CONTINUE 

D0 2?5 l>! ‘9%a 



iff e 0 NrtMui 

Df 129 t»l«29« 
Di 124 J»lilO 

124 C0NT1NUB 
123 C0NTINUi 
RT»0;o 
D 0 1 Ltiiiir 
UO*M0D(l.itO) 
Af-339 
00 2 SLil |3 
A ■ A *5.40 


CALL rREAD(3,BUF(A)(270) 

CAU THA|T(3) 

CONTINUE 

Sl*-470 

00 3 S>1«196 

,s 1 0 • M 0 0 (li.l.Q .1 

Sl»Sl*2 
S2«Si 
PiO 


00 4 SS«li2 

S2*S2*1 

S3«$2 

00 b SL41i3 

S3*S3*540 

M*agp«s3) 

' M ■ M*128 . ^ 

ir(M',NE.O) RT«Rt*l,0 

M', E a , P , 

P*P*1 - 

5 CONTjNUB . 

' 4 CONTINUE' 

CALU CROPUCROP.HT.NC) 

^ IPIMC|QT,6) wPlTEINPRtVfl'SO) Li'S# NO 

eao FORMAT UHOilOX# 'LlNEit, 15,5 X| *SAMPLE*'i I 5|5X| INO, 3F SUBPlXELSi* . 
#•15) 

IP(NC,GT,6) WRITE <NPRT«88l) (MTU), III. 6) 

IF(NC.QT,6) STOP 

881 FORMAT(lH0,10i<. *MT**.5X,6I5) ^ 

00 6 Pl^l.6 

M«MT(P1> 

IFIM.EO.IOOO) Q0 T0 8 
NiO 


DO 7 PpaPl.d 

. . ir(MT<P2)|NE,HL6O-T0.„7 

N«N*i 

MT(P2)il000 

7 CONTINUE 
RA(M,N)|RA(MiN)*1 

6 CONTINUE 

N#NC „ 

lF((Lio,Ne'.O)V0R.<SlO,NE',O)) G0 T0 8 
GP(|./lO.S/lO>»CR0P#iO*N 
IF<N',NE,6) CR0P*CR0P*1OOO 
GTa/lO.S/lO)*CR0P 

8 CONTINUE 

3 CONTINUE .. 

1 CONTINUE 

WRITE<NPRT,05O) 

850 F0RMAT{//i1OX, 'qROUND TRUTH INFORMATION P0R THE WH0LE SEGMENT!! 
RCHECKill7, 0*196. 0*6,0 • 
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. CAUL TAD(NC0ns,RPUR6|RTT.rL0> 

. ir(KT.NE,RCHECK> HRITE(NPRT|223) . 

225 n5RMAT(//,10X, ITHE WHPLE S60M6NY WAS N0T CRBUND TRUT'HED«» 

. WRITE(NPFIT#222) RT 

222 rORMAT<//ilCX,'cPMPgTAT|0NS BASED CN SUBPjXELS'i/» 

WRlTE{NPRTil02)..BPURE 

102 rCRMAT(» PERCENTAGE BP SCENE IN PURE PIXELS* ,iri0i2) 

WRITE(NPRTi905> 

903 r0RHATI//*l,0X, 'A MATRIX OF CR0UNO TRUTH OBT LABELS*! 

.WRITElNPRTil03)..«(GTaiSll,$li<l9>»Lilill> ^ 

103 FBRMATUH »19I6J 

■ CALL-EAR : 

DB 200 

1 D0 200 -JGl,19 

L*=GP<I,J)/tO 

S^GPU, J)»L«lO - ^ ^ 

RAa.SIsRAlLiS)*! 

-___ROO„C0NT.INUE ^ : — 

WR1TE(NPRT,0!51> 

B51,.r0HMAT(//tlOXiiCR0UND-..TRUT.H.,INrC!.RMATIBH..r.eR„THF- ?n9 n0TS«) 

RTT»209 

CALL uT('Fd u m77r pITr'e 7rT^^ ^ 

^^.:RI.TE (NRMi 2?S.L.RPUHE ! 

255 F0RHAT</ilOXi 'PERCENTAGE 0F THE 209 OBTS LH|CH ARE PURE PIXELS'i 

irio, 2 ) : = 

— ■ CALL TRWD<3> • ■ ’ 

^..CALL , „,TWA i T 1 3 1 ^ 

D0 16 KL»liU 

R0 ,, IT-KPi'l.i.ii. L 

AI(KU»KP|eO 

__ V C0NT1NUE : : 

16 C0NTJNUE . 

.... D0 14 Uli26 : 

. KTdIsO 

3L1.C0NTJNAIE L 

NCAJrO 

00 666 111 (.10 . ^ • 

666 LC0DE<1)8O 

... WRlTE(NpRT»702) . . . ■ 

702 FBRHATI/ilOX, 'T ype T0 CODE TRANSF0RHAT10N' ) 

WR|TE(NpRT| 300) 

300 r0R|iAf(/’i3Xi 'TYpE*,6X.*C0D|j«> 

„ _ , NA1D = 0 

13 C0NT INLIE . ' 

READ(NRDD,1O0) kS|N,T ^ 

iO6.F0RNAT(lAl,4X,il5) 

,WR I TO ( NPRT , 1 05 ),_KS , NT,.,.: ! 

105 F0RHaT< 1H , 5X, All 110) • 

„ IF<NT.OO,0) G0 T0 400 . 

IF<KS, 00(60) C0 T0 12 . 

ktiks-64>«=nt ■ 

• LC0PO(NT)«NT 

^00 To, 13 : 

12 CONTINUE 

Call clpso(nrdd) 

00 777 I"l(10 

777. IF«LRODE( I ) ,GTiO) NCAlaNCAJ*! 

212 CONTINUE 

REAO|NRDR|106) ,(<L(KP(KS . 

106 rBRMAT(10Xill2(lX(lS«';!!lX(lAl) 

irCKL.EOiO) GO T® 

NAIDnNAlO*! 

NT = KT(KS-64) .... 
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15 CBNtInuE 

HRIT€(VPHT,502) NAJP 

502 rt‘RMAr(/#10X# »N 0 .| f.r AI D0TS«»»|5) 

.. WR|TE(NPRTi902} - 

902 FBRHAT«//ilOX, 'A HATRIX OF At DBT LABElSM 

.WRlJLtNPRtil93lJJAl.<US»j5!‘liJlli.Llltlli — 

CALL 2AP 

D0.2OlJ«ii 1 

00 201 J*lil9 

iF(AmiJ),eo».o,).-Ott..iooi_^ 

L»OP(1,J)/10 

5«QEt I , J>.-L*10 

RA(Li5)»>RA(US)*l 

201. continue = 

WR!TE(NPRT,852) 

«52 format ( /MOX, iCROUND TRUTH. INF.ORHAT J0N F0R ..THB.AL.DflTSJ I : 

RTT»NA|D 

CALL TAO < NngMy, rpure. R tl.rU)..- 

WR|TE(NPRT,25A) RIHIRE 

256 F0RHAT{/’/ilOX. 'PfRCENTAGE, 0F .THE Al O0TS khICH ARE .PURG ,PIXEl,S*i. 
IPIO '*5 

‘trtNO.NE,.n WR|Tt(NPRTi901> 

901 F0RNAT(//i1OX, 'hISUADELEO DOTS') 

__ . WRtTEtNPRTilOXl 

107. FORMATC LINE SAMPLE TRUE ANALVIST') 

nla0l»o 

DO 18 KLBlill .. .... ..... 

DO 19 KP»i,19 

AA*-A|<KL»KP) ^ 

IFIAAiPQ.O) 00 19 

NLAOl.xNLAOL*! .... 

OOT.TIKUtKP) 

inao.r.Gtiooo) c,o=gc;«iooo 

REA(r.Q»AA)«REA(GO»AA)*l,0 

IFIGCmFQ.AA) CO TO 22 ; 

GRRO»nfKH0R*l 

HRJTE(NPRTi110> KLiKPiGGiAA ... ... . 

110 F0HMAT(iH ,4110) 

22 CONTINUE , 

19 CONTINUE 

10 CONTINUE „ ; 

‘ RERRORaERROR 

RNLARLaNLADL . '. 

RPMCislOO,0»RrRRrtR/RNLAnL 

ir<K'0.NG,-l) write INPRTiiOO) RPMC 
109 FORMAT!' PROPORTION OF DOTS M I SLARELEDI" i lF6 , 2 ) 

WRITE<MPRT,95D .. ... 

951 F0RMAT{//»10X, 'COMPARISON OF THE GROUND TRUTH AND THE AJ DOTS') 

DO flOO L*lill , .......... 

WR{TGINPRT|103> (GP(L»S),S«1.19) 

WRITE(NPRTiOOl) lAMLiS) ,S9l»19) 

801 FORMATdH , 19 I J 5 » IX ) i / > 

800 continue 

LRlTElNPRTTSniT'"’ ' ' ■; 

501 FORMATI/ilOX. 'MIXED PIXELS' ) 

MRITE(NPRTi107) ■ 

DO 302 I"lill 

■ D0 302 J«1|19 • ‘ : " : ■ 

inAjll.UI.EO.O) GO TO :-'?2 • 

■" N»Gp<I , J)-CP( 1 1 jl/iOtlO 
IF<N',E0,6) 00 TO 302 

wRiTEiNpRTaio) iiJ»Qpn;j).AnhJ) ' ■ 

302 continue 

DO 125 I'iiOSA 

« 4 A 
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,1 

i 


I 


i 


REA(1 « J}«i00«0«)R(^A(liJ)/RNLABl. 

126 CPNT|NUE.„. 

125 CONTINUE 

W«IT£<NPRTi960) . .. 

»60 rORMAT(//aO>fi 'THE CfKTUSIdN HATmX* » 

WR|TE<NPWi965) ^ 

965 POnMAT(/» 10 X, 'THE riRST INDEX IS THE CRCUKD TRUTH CODE' i 

l/»10Xi'THE SECCnO index IS THE At CODE'.).. 

DO 9iO IHiNCODE 

KsMCOOE-m _ . . 

WRITE<MPRT|91D «MCODEn),LC0DE(J>iREA(K,J>»J»l|NCA| ) 

911. rORMAT(/'i5( 5Xi 'P<!i l3.t,M3i,',)!!l»r6i2)) 

910 CONTINUE 

. WRITE(NPRT«999) J. 

999 rORHATI///) 

.. CAU HAP U 

DO 908 l«l,NC0DE 

P0,966 J*l«.NC!Al.„i 

KbMCODEIP 

RAIK.D'-RAlKiDiPEAII':, JJ ^ 

966 CONTINUE 

WR|TE(NPRT*967> MC0DE(1),RA<K,1) . 

967 rORMAT(/POX» *P< 'i 13, '.•«*>i',F5',2> 

9aO,..CONTlNUE , 

WRITE<NpnT,999) 

DO 968 J«i,NCAl , 

00 969 I»l,NC£inE 

k'bmcodeu) : 

RA(J,2)bRA<J,2)*REA(K, J) 


.969.. CONTINUE L_ 

WRIT|-<NPRT,970 > I.C0DE(J),RAIJ,2> 

970 rORHAT(/,iOX, 'P<«**, ' , 13, ' )* ' ,r5’,2> 

968 CONTiNDF. 

WRITK(NPRT,999> _ 

WRITE(MPRT,97A) 

97.1..P^RNAT {/, lox,.' C UND.IllCN.ED..,<JtLAL.Ci?.P.6SD. 

DO 971 IPPNCONG 

P0 972 U-1,NCA1 

KsHCODEm 

Ir(RA(J,2>’.EOi0'.0> RAU,3)»''1,0 

lr(RA.'J,2) ,EO,0,0) G0 TO* 972 
.RA ( J . 3 ) «RE.A.<K.,.J).7RA.U,.2 > 


972 continue 

.. HRITE(NPRT,973) <HC8DE<n,ECOD0U),nA(J,3),JPl,NCAl„). 

973 F0RMAT(/i5< 5X , ' P ( ' , 1 3, ' / ♦ , |3,.* ) • ' ,F6 , 2) ) 

,.971 CONTINUE 

WRITK<NPRT,999) 

'WRITF<Npf?J,975). 

975 FORMAT!/, iOX, 'CONDITIONED ON GROUND TRUTH cODEsTT^ 


. DO 976 jBliNCAl . . 

DO 977 I*>1,NCoDG 

. K«MC0DE<P , , ..... 

IF<RA(K,1)'.Eo.0,O) RA<K.AI»b1,0 

^.„...lF<RA(K,i),EO,0’,0) GO TO 9.72_ 

RA(K,A)rREA<K, J)/RA(K,l)itl00',0 

977 CONTINUE . . : . . 

WRITE(nPRT, 973) aC0DE{J),MCODEm,RA(HC8DE.n),A). I»I,Nt«-DE; 

976 continue 

AOO continue 

WRITE<NPRT,999> 1 ; 

call DaTE<0) 

__ CALE TIM6<T5 . „ . , 

CALL CLOSE(NRDD) 

Gael closE(NrDr) 

MRITEINPRTiIO." 0,T gg 


I 
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3.2.16 SPATL SUBMOUTZHIS , 

IVo special subroutines TAB and ZAP are called directly by SPATL. 
Comnunication between these and SPATL is through the oomnon BKl. 

3.2.16.1 Subroutine 


3.2.16.1a Flowchart 



f 











3.2.IS.Ib Listing 


SUBROUTINE TA0<NCBDE,RPURE.RTirtG)_j L 

IHPUtCIT integer (A»0)*(S-?) 

.common ./BK1/RA(256, 61, MC0PE.(25«.) 

NPRT»6 

WR1TE(MPRT,95o) Ul,n«l,6) , 

♦50 r0RMAT(//,9X, «Xl,6X,»F(X)» ,6X,'N(X)S6(6X, •PIX*,!in 

NCODCbO : 

RPUREfOiO 

D0 9„Mh1i256_ 

RNfO‘,0 

D0 10 Psl,6 _ : 

' inFLG'.EO.l) RN8 RN*PaRA(M,P) 

inFUC’.E0,2>..RNpRN>RA(M,P) 

. 10 CONTINUE 

_ JF{RN,EO,0,0) C»0 to 9 1_ 

'NC0DE=NC0DE*1 

inrLG'.EQ,!) MCeDE<NC0DE).PM._ 

RP=100’,0«RN/RT 

lF(FUG‘.EO|i) RPuPEBRPURE-k6*,0»RA(M,6) 

ir(rLG’,En,2) RPuREsRPURB* RA|H,6> 

^WR.I.TE<.NP.RIiJLQil_M,R£,Mi.{ilAlhLi^i^^^^ 

iOl FORMATaH ,lIiO,8FlO',2> 

9 CONTINUE . . 

'-RPURCnOO’,0«RpURG/RT 

RETURN 

END 






3.2.16.2b LiBtinq 


SUBR(?U1.II1E : 

IMPUCIT integer (A*Q>»(S-Z) 
C0MM(9N /BKi/RA(296|6)f|tC0OEI2S6) 
■ ■ D0 20 Mil 256 

D0 2$: Pr1j.6 

RA(MiP)f0,0 

2O0NTJLNjy!l 

'20 C0NTINUE 

RETURN _ : 

6N0 " 



3.2.17 SECOND MODULE - SECOND UNIT (ALLCRP) 

3.2.17.1 Linkage 

ALLCRP is a stand alone program which uses only standard system 
utility routines, 

3.2.17.2 Interface 
None 


3.2.17.3 Input 

ALLCRP requires input of a "ground truth" magnetic tape of file 
product of an earlier execution of the first module of this 
system. It also requires input of a companion DTRM tape 
(reference 1) and card entries of corresponding analyst "dot” 
labeling data and a crop to small grain transformation (see 
Appendix A) . 

3.2.17.4 Output 

Printout of accuracy assessment parameters (see Appendix B) 
including: 

1. Maximum likelihood proportion estimate 

2. Classification and pixel counting proportion estimate 

3. Probability of misclassification 

4 . Variance of Procedure 1 proportion estimate 

3.2.17.5 Storage 
TBD 


3.2.17.6 Description 

ALLCRP compares as small grains and other ground truth data with 
operational classification data, analyst dot labeling and ERIPS 
automatic labeled data (DTRM) to determine their accuracy. 
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i • 1 «Nr^/l 

.1 V.. 

■:■':.*! ' *3 


iwficTT ivTfTjFf? ■<*«or*fs«n — 

dimension jT{256) 

-&t«€-KrS-niN“AT*t7Vp-A aiTlTTr” ItM-i! 

BYTE 8UF1 (3060 3060 ).T(6)»D(9) 

-BYTE -AS, 

BYTE Ch1a«(!J0) 

-tool \rALENt‘r-( S17TJUF1T6T) r*T827tUr2 < H 
C0MM3N /GG/Q(ll#19) 



CiflMM0N /STATUS/Wi.W2 

— mrnrT he ( tt 

CAL.U DATE(D) 

NRUTT-s-A 

NRDD«5 

NPBT'ffC" ^ 

MRITE(VP«T,703) P*T 

-703-TKIRHA r< IHl . ' "J0B INITIATED ‘0N v, 9 a1 *1" AT " 

I'PRklGRAM ALLCRP.fTNM 

“~0P-EN f Uff IT«fmDO> N A me =-' L'i 3‘2PTD'AT * V T YPE*; I«t D ’ 7' 


r//»iox, 


* ACCESSc * sequent I AL**F0RM«*ri4RMATlEl)» I carriage C0NTR0I.*' * NBNE * > 

RFTDTNRPITTFOlT-srA’BSTTIFTSS' 

>01 FBRmAT(A 1 , 4 X J 5 ) 

— -aA-LL."Xl.0SE'(NRDD)' - 

IF<5PASS,NF , lU ) NPASS«1 

— P0“JJO2-FA-5S=T» NPA'SS ~ 

0 PEN<UNITBNRDU,NAMfc»' ALLCRP,DAT:»TYPfeV 0 t.B'» 

— » — ^A^cExs*■»•SE^DETT^'Arnr^^r^^tf•Tr0 RMATT£ 1Jt^o■AFF^7^sE■x■z^nm^c■a•»w2■^fe■*r 
READ(NRDD» 70 <) QSDeViGNDEV.ri 
•70'4~ri5RMrr <at , rx rsTz > " ■ 

WHITE(NPRT,705> GSDE V , GNDE V< FI 


““70E F0RHiTr//riO'X7'DH0UNn- TRUTH' tape ' 7/7 7mTAir»T*‘Vl CrXi'* DEVICE’ N0, '6' 


11!>,10X, 'FILE N0,*',I5) 

— G-rD-E-V=D 

IF(aSDKV.EO.'X') GIKEVbI 

--IFTQNDEV#NE;O7'ANlT;-ffNDEr,W7n“X0“T0-«“ 

READ<NRUD,704) OSDEV, UNDEV.F2 

-p-gSFE+'PASS^'t 

WRlTE(NPRTi707) 0SDEV<nND£V|F2 

i - rvmwnrr , tuxt'^'xitrk- tape rjrntv at attt'ttoxt^de vrcr-wBT’' ' 

1!(>»10X, 'FILE N0.»,',I5) 

CrDEVSO"" ^ ■ 

IF(USU6V»EQ, 'X' > DIDEV = 1 

— irtD’NDEVi NP-, DTANn.DTJnEV;NE';TT"Gir T0-1? 

0PEN(UNIT»NRDR»NaMEs'AI ,UAT' ,TYP fc = '0LIH .ACCESSb 'SEQUENTIAL', 

— FT!!R'Hii'Tn:rRra'rTEl'’’'iX’ARRT-AG¥~’CaNTRSJf»''N0N'tf ) 

IF(PASS,GT,1) GP T0 6B8 

- C A Lt,'“T I N I T U 7 G I DE V I G N BE V 7 

CALL TlMTt2,DlDEV,DNDEV) 

'■•"'C At U-~ T ATCff (T7 ■ ■ 


CALL TATCH(2) 

— 8X-8 cxmrwE 

CALL TRWPd) 

- — xAtr TWAird)-'- 
CALL TRWP<2> 

CALL — TWA ITT27 — 

Fl=Fl-l 




U0"l-*ralV26~- 

AT(I>50 

r-cwNTiNur 

•' D0 3 1»1,257 


J ^/^7 


original page is 

OF POOR QUALiry 


BC 


702 


300 

g 

TOl 

"lU? 


‘ ^ J»i,8 

RA{|,J)»OtO 

■"CtiNTiNCE 

CliSNTiNue 

-MRTTFXMP>tTr702)- - ' 
f’/«HAT{/ilOXi *TyPE 

-WRITE (NP«T#300-) 

F0RHaT(/» 3X, *TYPfc»,6Xi»C«l.aE») 

C0NTIMUE 

RtAD<NRDO»101,tRR«927) AS»AN 

“FtJHMAmAX-,4X,llt>) 

WHITE(NPRT,1P2) as, an 




T0 C0DE TRANSraRPAJllCNt) 


TtmnAT a-Mnr5X7-ATrntir 
IFUS,eOi8B) Q0 T0 6 
AT<AS-«4)»AN 
00 T0 5 

C0NTINDE 

Uc 36 MBl.Z&e 


aTCFT*1> 

36 C0NT1NU6 

— D0--7 r«inv- 

D0 8 

A| IT'JT'O 

GU« J)aO 

-CBNTTNUE' 

continue 

WHlTEUiPRT,70l) 

F0HHaT</, 1OX, « At D:n LA0l.ES*) 

■•WRITE(VPRT,301) 

F0MMAT(/,7X 
r<rtr 


7 

701 
30_£ 
_9 
103 
lOA 


.*HNE*,6X,«PIXEL'»7X|'lYPfc! 


) 


■313 

502 

107 


loe 

905 

121 


118 

117 


-119 


C0NTJNUE 

ReADtNRDHa03.ERK3929) “ATVA-P'i'AS ,1 CHAH 5 n;isl * ' 

F0HMATaOX,112,lX,112,lX,lM,13X,5OAl)‘ 

WHITE(K;PRT,104) AU,AP, AS, (CHAH(I), I*!*!*'/? ' 

F0RMAmH ,2I10,9x,lAl ,13X,50A1) 

■u (•Ar7FSrTO')-G-0"TT'"l'O" 

NAIU«;NA10 + 1 

• ANSATC«S-'64) — " 

U'lAIAU, AP) ,Ne,0> WRtTE<NPRT,313) AL»AP 

F0HMATf/-Ar,lOX, rUOPtrCATE-DTIiT' LAQEI. ' 

A<AL,AP)sAN 

-G-r-TTr-9 — 

C0NTINUE 

■WHITE(NPRr,-502)-NAlD 

F0RHAT</»1OX, 'N0, 0F A1 D0TS«*,I5) 

■READ(NRDD»1O7)'-RPR0B — " 

F0RMATI1F1O,2) 

-•■viwi TE «rPR'T-jit!'r)-RP'R00 

FklRHATM ASSUMED A PRI0RI PRBBAOIUTYe »,1F10,2) 

WKITE-(NPRT,905)*- - ' t — 

F0RMATC/'/,1OX, *C0DF T0 C0DE TRANSF0RMM t PN ' * // , aX , * 8EGI N * , 7X i 

I'bND*" ,7X,“»C0DE*-) 

C0NTINUF. 

ft 

F0HMAT(315) 

WKlTE<r'TRT,-117) NB,-NE-»N® — : 

F0RHAT(iH ,3110) 

" rn (NB,EOV0r , AND7(■^rEVtOVO■)■';WD7rf^0i■fett^f7^■G0~T0-•r2^~ 

IF ((NB,EQ.O),ANDi(NE,EO,O).AND.(N0fkU,'’l)} C0 T0 224 

•"D)tf”tl9' •1\r«'lvOTN6"’ 

JTIN)sN0 

C0NTINUE 

G0 T0 121 

■■CUNTimiE 

D0 225 1=1,256 , 






122 CUNTJNUE 

CAi.y-7Fn.En, rv — 

CAtU THAIT(I) 

CAu Tnuef?,F2> 

CAU TWA 1 T( 2 > 

CAtc — TRE-APt vrtrufr.isyEr 


CAL.I. 
CAU' 
CAU 
-CAI,U 
CALJ. 


TWAITd ) 
-TREAD( 2 ,Hljr 2 , 15 S 0 ) 
TWA 1 T( 2 ) 

SWAtnSl) 

SWAtnS 2 ) 


wHj-tEtwpKr,:502)--si7(Rurin'nl"? J *!r2TfBUF7nBJTTB"m' 

302 F«HMAT(//'nOX, *gT SKG, NP , * ' , li, * OA Y* J , IS, 5X, • MPiNi M*5 
"■ ■■1»Y6AR«'»,I5,7/,10X, *DTRM SER,N0 ,t»’ i ISj EX>' ’.CATi ' , J5,5XV»M0N 
25X,tYeAR«M5>) 

- — DP 'u yn.Tn 

uo«M0Da»io) 

c Att — r rear f27 t p c-i — “•~™' 

T'4AIT(2> 

un-,3 ■ ■ 


ibS) 

,5Xi 

i>’>i5r 


TREADn,Ru!'i,27C) 

YWAlTtn 


-TJ 


CALU 
■'DP la 
CALL 
'CALV 
Pb72 

“^Amny — 

QfcP»0 

DP 13 gBlV19fe 
SlO«M0tl(S,lO> 

XanuF2(S»72| ' ‘ 
lF(X,Ue,0) xax*a»6 
-T)D-1T- SS*1T2 
Np?rco 

inaiO.EO'.O?, and, {SllV,eO,0)VA^D, (LLUU.5),AW, (SS.EO,! 
pap^l 

TVaUUFKP) 

TvaTV*128 

TVTs'jrnv) 

N2BTV/10 

' NiaTV«10»N2 ' 

JF(L10.E«,0, AMD.SlQ.FQ.O) SAN*SAM*1 

ir<UO,Ea,0,AND,!S10,nt3,0) T'BTRtLLFSAMF-NV ~ 

IM <Nl,Nb,l) ,AND, (Nl,Ne,2) ) C.0 T« IS 

- 'RA1 X*,'N n «RA-( X ,-N 1 5-+1V0 — 

n <Nn0T,Nt,l) GP TP 15 

- SIUO*S710 ^ 

CALL CiDUM(L,OEP,N1,NPRT,SDiO) 

RA(X, <\1*2» )BiU(X, {N1+2)) + 1,-0 ■ “ 

15 cdntinme; 

J F mt7;-Nr,~l 1 -,A:JD-,r^ir,NT:,‘2-)-T“-G-trTS1"'»r 

RA(X, (M2 + A) )aRA{X, (N2*4> >*1,0 

31 C0NTINUE' ■ 

u (NneT.Nb,!) Ge tp ia 

- - A12aA(L/10,-S/rO) ' “ “ 

|M (N2,Ne,l> ,AND« <N2,NE,2) ) G0 TP lA 

(YfMZ+fi-naR A tX ,~tAf2’»-6T)*n7'tJ 

14 CONTINUE 

‘l«-Ct)MT|NUB — 

CBNTiNue 

■lF(L10.Ht3',or - call- PD0TR- — ■ 

C0NTINUE 
■Dr-45i"“r*iTtr 


MD0T*1 


12 

11 


D 451 RHITE(NPRT,452) < Q (1 , J) , J«1 i l»> 

“ 0-452 ■ PB R hr A T n H -r 1 0 X » 1 ? 1 5 ) 

W 16 X»l,256 

00-17 "M«l, -8 

RA<257,N)«RA(a57*N)»RA(X,N) 

I- * 




. . .Mi MM. 51 I HI H<r ' 1 "^' 


•‘issa 


16 


i;BNTlNUfc ’■ 

CeNTiNUE 

•Trn?r«RiiTr5r, 11 *H»(?577zr 

0S«p2 


■■ - 0S«p2 

DtJ'lR cri?SE'i>ilT4 

0S8ES*2 

p^-2^ 'Ytr,757 

D0 24 NiViia 

RAtX,'N)«OV0“‘’ 

24 CONTINUE: 

••^3■■C0NTrNDE 

91) »H A ( 25>7 # < !)S ♦ 1 > ) -! - A 7 , < (?S* 2 n 

rrTRn7wroT0T*r.'2' t 

RAR«t7A{2&7» (i1S*l) :• 

incAse,-EQ,3) ■RAR>-»r'n3ti7j;'Do;o'‘' • 

00 19 yal»296 


RTsRA'CX«1)*RA<X-,2)- 

ir<RT,EQiO,0) R 0 T 0 19 

fTAt X 1 91-* Rr/'{ 9ATt 2> 771 > ♦ 9X12157721) 

RA(X,in)sRA(X, (gS + i) )/RA(257, <0S + D) 

R A 1 X ,1 1 1 aR A ( X ; ( ^ 5 ♦ 2 ) ) /R k’( Z 5 7 , C0S *2)1 

RA(X, 12)80,0 

-R CnrR AP # R A {'Xl 1 01 * ( 1 0 p R A P )-»R A ( XTI 1 1 

ir(RD.F.O,0,0) Gp. T0 20 

-RArX7l2l«RAP-»R7^'{X-,-lcr)yRO 

20 CtNTlNgt; 

RA(X,13>“RA(X,9)*RA(X,12r ' 

IF(RA<X,12> ,GT ,0,5) RA ( X, 14 > = RA ( X , 9 ) 

TTA-tX , 15 ) »RA I XV9 ) *RA { X, 12 )*'nVD*RA (XTlt) ) 

1P(Ra<X,12) ,LT,0,5) Q0 T0 21 

9A7X,-T61'*RATX1T)VRA ■(■297121 

RA(X,1$)8RA(X,2)/'RT0T 

■‘G0 T0 22 

21 continue 

RA(X-,17)»RA(X,1)/RA(257,11 

RA(X,1A)*RA(X,1)/RT0T 

2 2 ■" C0^N t TN U'E — 

19 continue 

D(j 25' )f=l725’5 

DO 26 m»9,18 


RA (257, N > = RA ( 257 j M +RA ( X,'N1 

26 C0NTINUE 

— 2 9“-c 0 N T I ‘N I JE 

WKITE(NPRT,111) case 

■ TirreRMATUHi, »- ca)>e=» ,ir5i 

IF<CASE,EO,l) WRITF.(MPRT,601> 

TnCASE,E'Cr,2) -WRlTE<NPRTT602r - - - 

IF(CASE,fcO,3> WrITE(NPRT,603) 

rpt c A^s ete cnr4 ■)•"» Rt T e t n p rt'f 6 o 

601 F0RMAT(/1OX, »DTRM TAPE COMPARED WITH THE GROUND TRUTH* > 

-6O2'T0RMATC/1(IX, ♦UTRM tape COMPARED' WITH’ THt: -20V DOTS’) 

603 F0HMAT(/lOXf *DTRM TAPE COMPARED WITH iHfc TRAINING FIELDS’) 

-6-O4“F0HMATr/lOX, ’DTRM-TAPt:“C0M?AR'ED-«ltK ■THt"Ar't)0TS*1- 

WKITE(NPRT,401 ) 

-4n^-T0-9K A-TTr74x-;^^nr’77r,-'<’^An77 xr*itrxT0-)-’ ■itxT»im xrvrrtviKT^ Hrt*Tzr*7 

13X, *PH(X)'.2X, ’PMX/W)',1X, ’PT<X/0>*»ix,)pH<W/X>»,lX, *PH(X,W) ’, 

23X, »PI <X> ' » 1 X, *N£)*V(X)’-,-ir,-*PH(X/0)»)lX) *PP(X/W) ’,2XV*PHC(X)’ ) 

D0 27 X»l»257 

IRTISH A^CXi’l ) ♦RATX-,'2) 

IF(RT,EQ.0,0) Ga TO 27 

'“1'r(^X7E'OT'‘^)*1')""W^nE'('NPRTl‘X0'2-) 

402 format (/»10X, ’T0ULS’///9X, 'N(W) ’,4X« ’N(0) ’ ,3X, »NT(W) * ,3X, *NT(0) ’ , 

-'335X, »PH(W) ’,-4X"* »PDP'T’V4X’,''*NDVv’",2tX,-’'PMt ’ ) 

WRITE(NPHT»109) X,RA{X,1),RA(X,2),RA(X»5I«S*1)),RA(X,(0S*2)>, 

■«"( H ATX', N ) ■»'N ■r.T. ei ; 7 - 

109 FORMATdH , 1 1 5 ♦ 4F 8 , 0 , 1 CFB , 5 ) 4 


87 CiNTiNui 

Q« Te i« 

W»TTt fNFUTVW) 

928 F0RMAT UH i 2QX, «AS AN N0T READ') 

B0 T0 18 ■ 

989 write (NPRT*930> 


CONTINUE 

ir(wPAss,crTti>' writeiwprTiBOJ) 

•09 F0RMAT (IHi) 

r8iF2*l 

CAIpL CU0SE(NRDR) 

'TAXTT'^C^SfT'Wnr) 

802 C0NTINUE 

' V CAUt C0HPAR(A,Q,NPRT) 

CAUL, OaTE(D) 

CAiL TIMEiTJ 
WRITE(\P«T,333) 

313- F0RmrT iTtt) 

WRITg(wPRT,UO> U.T 
WRITE(MPRT»UO) D,T 
110 F0 RMaT(» J0B C0MPLETED PIN 
ST0P 
END 


*9A1,' at *,8A1) 


' AUURP.LPI/SB-AUICRP 
CR0PU 
— 9Urxm 
PP0TR 

^a00»43SWAB 

U00»43UfcQTAP 

n#13r4P0TS/LB 


— AtnTttprt”' 



unitsbb 

ASQ»SYr4 

ASQ«SYt& 

- A^GtLPl6 
MAXBUF«3060 


ff 


3-^JrO^ 

/// 


3.2.18 SECOND MODULE - THIRD UNIT MLTCRP 


3.2.18.1 Linkage 

MLTCRP is a stand-alone program which calls standard system 
utility routines and the companion subroutines MLTRDD and MLTANL. 
MLTRDD calls subroutines ZOT# INDDT, INDGT, lERR, DDUM, and PDOTR 
as well as functions IPCN and JPCN. PROBT calls subroutines 
INDDM, MSUM, SORT, MTXPT, PROS, and PROBC. 

3.2.18.2 Interface 

Communication with subroutines is through the calling arguments 
and the common blocks RD, DD, MPI, CK,MTX, and PS. 

3.2.18.3 Input 

MLTCRP requires input of a "ground truth" magnetic tape, a 
companion "DTRM" tape (reference 1) , card entries of corresponding 
analyst "dot" labels and transformations for both tape inputs. 

3.2.18.4 Output 

Printout of accuracy assessment parameters (see Appendix B) 
including: 

1 . Count matrices 

2 . Joint probabilities 

3. Conditional probabilities 

4 . Dot Labels 

3.2.18.5 Storage 
TBD 

3.2.18.6 Description 

MLTCRP compares using all crops ground truth data with operational 
classification data, analyst dot labeling and ERIPS automatic 
labeled data (DTRM) to deter*mine their accuracy. 


3.2.18.7a Flowchart 






3.2.18,7b 


TMPLTCTT INTHQEH tAfff).(S-H) 

C0MM0N /RD/A(U,i9)»G<Uil9)iDT{U»iV) 

C0MM0N /CK/JQ<256»4),4D(256» 4),IN0,IND 

C0MM0N /MTX/RA( 90»50) 

C0MM0N /PS/BASS 

rrrg T(B>»D( 9r 

CALU TIME{T) 

NRDR B 4 

NRDD*5 

NPRT«6 

WRITE (NPRT, 703) O.T 

703 r0RMAT(lHl,t J0B INITIATED 0N »»9A1»: 4T SBAl./ZilOX* 

p R 0 ijR‘Anr*MtrTt: Ri=^,inTr» t 

0peM(UNJT*NRDD»^AMfcp«L00P|DAT« ,TYPfc«l0LD' I 

^ i ACCESS**SEQiJHNTIAI' »F 0RMB*r0RMATtED’ iCARRIASE C0MT»0l,.P»N8rNfT) 

RgAn(NRDDiBOl) SPASSiNPASS 

— -|01 r0RMAT(Al,4X, 15) 

CALL CL0SE<NRDD) 

•trrspxss'iNF". ■'■tn-'-RpASEiBi — ■ 

D0 802 PASS»liNPASS 
BASSbPASS 
CALL MLTRDD 
CALL MlTANL 
WRSTE(^PRTi334) 


002 C0NTINUR 
CALL DATELD) 

GALL TIMt(T) 

WRITP(NPRT,333) 

333 F0RMaT(///) 

TWrTEXTvrpRTTlT0)“D7'r 

WKITE(N'PRT,110) D,T 

110 mHAirT J0E C0TTPLETEC 0N ',9Ali’ AT ’,0A1) 
ST0P 




.Fi¥tT RD,ffff#Q^,REU,0VR 

• PSECT DD|Rw«QU|.,RgL,0VR 

p. 

iPsecT ck,rw,qbl,rei»0vr 
.PSHCT MTX,RW,GBL»REL#?)VR 
,PSECT PS,RW|QH1.,RFI.,0VR 
|R00T MAIN-#f Ai0) 

MAINI .PCTR Ml,TCRP»-rLB 
"~rtTi'"-~PCTR ■ 1 1 iiTP«-p‘0Tr;"0ran:R 
Al ,rcTR MLTRDD-#a6CTAP,S 

“‘■rr iFCTR hltanl 

Cl 


ryin 

,rcTR MLTRDD-ta6CTAP,SWAB|C) 

iFCTR HLTANL 

,FCTR PI)0TR-DDUM.»CR0PL 


WttWilPf/SMPKtTCRP/HP 

ACTFI1.»8 

— UNITS* a 

ASGiiSYH 

ASObSYIU 

ASGSLPI6 

MAXBUF*3060 

PRI»50 


>iiC 


3.2.18.8 Subroutine MLTRDD 

Subroutine MLTRDD reads in and analyses the input «lata. 


3.2.18.8a 


MLTRT>t> 


■3Cv,i4-i 

Cov»vv»t#»\f 


patf^r 

"firfiAi TAfiC" 

r/c< 


tf/0€\Js O 


• ^ 

pri>e\Jxi t 


A€A» 

^U*J Pi 

J^ir.lp. ) 

PArt^T 

" 6^cn> >'p m u r 7 A i>p. " 

^ I I 

T^k 'Vf^iU Vp. « 

"nth- //j -■ CrJ' ” 

CZ^yToI” 


a*1^ 

-^PA'oe^if / 


<Z^ss>t 

x„ . 

ATTAPH f- fHfTtAUie 
TAPCS - 

QCtiWOrKyJTH {U>^,U) 
DTHJ^ (Un,/ Z) 




<CA/pe\t^o 


Fl s. Pi - I 
F».«,Pw- I 
/♦rCDcO 
r~ * * • t-c 

: 'v ■'' 


Y 

1 

pdtpr 

<^4?40 

_J 


y^fic ra cave rnAUfan-MAm 

" Tif>£ . . Coipp " 













m 


/ fifLtNr 



i 

r/w. 

X/«-tv)a4// 1 1 



AH fit 


flKAti 

/i 3C> 

UA>f I k / 


AU,^) *. 0 
<5 Cr>/> o 

n 

Ts. I i 


pfLti^T 

**Ac o^tfr UAfs/cL.^' 


"UH£. 


PIK£L 


type 


8 /rS o-v 
SgP/U 7 ;cSu‘’*.W 3 
fi/ i. 8 1 - 


/ 0 /Z//V' r 

Alji : t ^(il)). 


ptAS / pfUr^r 
A<^, AP, AS. 

J At) 


iKAH €/tA. 


4 a/« 

t/AtOsf/At» fl 


Ai. Afi. AS A/ (iir U.KAb 


L’z C|t/ 


4 / 0 «. 


PeAt> €, BiApr^ri 
/ OTAAA itC9 
I /(fa 


44 .S o 


prt.it/f~ 

tJ<Pt oji /If txs'n-^M'i/ 


LLf^LU4( 


/(.JC/)i>/iS,tt icp/iit 
< 7 L .70 uJ 6 /CCi 
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7 ;j 7 XT 7 nr: 8 ¥ 


SOBR?UTT'Vr~H'CTRUIJ , 

IMPLICIT INTtGER (A-Q)i<S-E) I 

■ iri-METIS-T-pr-A-TTZ-fil 

C0MM51N /MPI/MIND »RT|NPRT, TlNPil^AjO ' 

^•C0MM^N*7PD/A-frni9 ) VCUl 1 19 ) ,’DTTilllV? ' " 

CeMMtfN /PS/PASS 

-C 0 N M JIN '7 D P/D'Z TP ■{ 3 » 3 B' T ^ 

BYTB BUFU306o)|BUF2(3060) 

■ BYTE-A-g 

BYTE CWAR(50) 

E' J I VA'L ENCE“ ( SI , but 1(^7 ) ) ", ( ?77 BUF 2 T 

C0MMJIN /STATUS^Wl»W2 

C0.MM0N'7CK/JG (2f6 , 4 JTJD (25’6T‘4 >■^rN?7^^P ' ' 

CKMMSN /MTX/RA< t»0»50) 

RTTPIfTr-TJ ^ 

NRDD«5 

0PEW(UN IT‘»NRDn»'^A'HEa tPLTCRP'.BT^T’VT YPC"^ WCC '7 ' 

A ACCESS»'SECluEf>|Tl A|.' »f0RHs'r0RMATTEU*»CARRlAGE C0NTR0L* ’ N0NE * > 
rea‘J(.wdp; 704') -GSDEVibMuev.n " ' 

704 PBRMAT(AI/U»2I2> 

»R-nFrTiPRT770»rr-7iBrTFVTri'rTDW 

705 F0RMAT(//,lOy, 'GR0UND TRUTH TAPE * i //* 10 A , Al» » T », lOX | ♦ DEVICE N0,»», 

115 nox pnur-f(- 0 ’ /isi ~ 

QID6VS0 

irtU5DET.t:-!J-,“»X'’ r -QT DFV'S^T 

!F(GnDEV.NE,0,ANU,GNOEV,NE.1> (30 T0 18 

= Rfe-A’Dl-ITRDD T7TJT>"D’SUI;yTDNDEVTr2 

FSsf2*PASS-1 

WRITE ( »^)PRr»707 ) ' 7SnEV7DN0'EViT7 

707 F0RMaT(//i 1OX, • UTRM TAPE ' # // » 1 OX , A1 1 » T * i lOX, * DEVI CE N0,*», 

nyrioxr rFHE-N0 ; s-r,T51 

DIDEVsO 

rrtirs'DFVTETrrn('’T"iD7DBvn 

IMDK'DFViNE.O. AnD,DNDEV,NE.1) G0 T0 18 

0PEM (•UNnt=UROP»T.iAMEa ? A'l .DAT ’TTYPt - ’■BUTJt-.-AC'CESsrs ’BEQUENTl AP i 

# F0RM3»F0RMAtTEU*, carriage C0NTR0L8*N0i\b* ) 

If ( PA'SS',-GT7'1T''G0'T0"0B'5 ' ■ 

CALL TINIT(1,GIUEV,GND£V) 

CAUL — T TtltTT7,Tn-0E-V i'D N1TEV7 

CALL TATCIUI) 

CALL • TATCH-fZ) 

eea cgntINue 

... ; 

CAUL TWAIT(I) 

C-A'LL" — TRM0t2‘) 

„ 

[ 2 =F 2 - 1 ^ ; ^ 

D0 X Isli26 

A-T-FD'^n ^ 

I C0NTINUE 

Mf;lTE < NPRTT702T- 

702 F0RMaT 7,1OX, (TYPE T0 C0OE TRANSF0RPAUUNt ) 

WR ITr(-KPHTT3(rC7 

300 F0RHaT(/. 3X, ’TYpfc* i6X# 'C0DE* ) 

“■ a~c»NTTNue 

READ(NRDD»101,ERP«927) AS»AN 

to r F0RM A T ■( 1 A 1T4 X7 1 1 7 ) 

■ write<mprTi102> as, an 





- 8 
7 

701 


00 T0 5 

continue * “ ■ 

00 7 Ul.ll 

00- 8 

“0-t-tVJ > At 

DT(l,JJ«0 

continue 

CONTINUE 

- WRI TECNPHI »-7tX l- 
F0RHAT(7,1OX» ' A1 
-NWtTEtNPNTTSOr)' 


DOT ladles* > 


501 F0HMAT(/,7X, »LlNh',6X» 'P|XEL*f7X, nyPt*.) 

NAIDcO ■ '■ - 

9 continue 

“ RE AD < N PDO » 1 0 3 ,ER IT8 9 2 0 ) ALTAP » AS C H AtH I ) ,1 n » 50 ) 

J03 rORMAT(lOX|il2, jX,i I2»1X,1A1|13X|5UA1> 

WRITF(MpMT;rOA) ALi AP, ASrlCHARtl ) , {■IftU) 

F0RNAT<1H t2Jl0,VX,lAl,13X,50Al) 

- if(al,eo.o)' 00 T« 10 

NAIDsNAlD^l 

AN*AT‘US-6'4-)—' , 

If<A{Al ,AP),Ng,0) k’RlTe(NPt(T|3l3> ALiAP 




-TTSKN ATT'r/ /♦TOXn OUPrrCATP~D0t~CAtEt 
A(AL» AP)*AN 

to TO'9 


-tTN*i?0T~T~»'itlT5T/77t' 


10 


CONTINUE 

WRTTECNPRTiSOSJ NAID 

format (/» ioXi * N0 I OF A1 D0TS«'»J5) 

-tlX-5trTtflT25» ' 

JGU.DsO 

JD(l»naO 

continue 

CALL 21P 

NRITE(NPRT,9i!j> 

FfSRHAtTtHOnoXr-* r, ROUND "TRUTHS 

WHITE (NPRT,905) , 

F0RMAT(//>10X, 'OWDE TO CODE TRANSPORNAT JON i ,//, OX, ’BEGINS 7X'» 
I'END' ,7X»*C0Dfc<> 

“121' CONTINUE ' 

READ(NRD0,U6) NH»NE,N0 

-~rXV~T 7 W\n r3I5J 

WRITE(.\lPHT,ll7> ND,Nf;,NO 

FBRMATUH ,3110) " 

IFUNB,E0,0> I AND. (NE.EQ.O) .AND, (N0.EO,U| > GO TO 122 
' 1 F U N B VE t3 .0 ) . 'A N D , ( M E , E 0 ,f) 7 A N'D < NO , E « , - 1 ) ) G 0 “T 0 “ 2 24 ^ 

DO 119 NsNB.NE 
•ytTN",iT*-Na-- 


502 


50 


"915- 

905 


■tl7" 


224 

225 


CONTINUE 
•GO TO' 121 
CONTINUE 
DO '-225' lBl-.'25'6r' 

jr. II 1 1)^1 


-tO-MT'l NUF' 

WKIT6U'PRT.916) 

- -918 FORMAT (IHO.IOX. ’DTRIt MAPS 
WRITE (NPRT,9o5) 

-3Ur"" CONTINUE- ■ 

RfcAUINRDD.lie) NU.NE,N0 
MRtTEt^*PRT'^lt7■^“■N0•,NF^Nr 

m f t 0 k. , r. f\ \ k \,t\ . i k\C Li r\ I 


W I f •> V 

RfcAUINRDD.lie) NU.NE,N0 

— MRtTEt^*PRT'^lt7■^“■N0•,NF^N0 

IFUNb.EO.O) , AND. (NE,EQ,0) .AND, (NO,EO,qn QO ' 
- iFUNa.EO.O) , and. (NE,ta,O) ..AND,*<NO,fcW,"a|)-C0 
DO 319 N»NB,NE 

' u!)(N‘,ir;» NO ' ; 


TO 322 
TO 424' 




*■ ■ ■ T0 J2i ^ 

424 C3NT|NUg 

"D0 '32S ■m725» 

“'32!rcaNTINUE 

322 C0NTINUE 



CAi,U TWAlT(l) 

■ '"-CAU"' TFU.E(2',r2> 

CALL TWAIT(2) 

CALL tread (l,-0UFl,l53tr) 

CALL TWAITU) 

c Atr *~TR n A trr2mr»'‘2*, i w tn — 

CALL TWA1T{2) 

CALL '^'JA-HCSD 

CALL SWAH(S2) 

• -WRITEiCK'PRTi^O^) IR),TR461»63?#tj2, (BUFailfi) i |Bs61»< 

302 F0KMAT<//,1OV, ’GT SED. N0 , « » i 1 i 5X i * PA V * 1 , J Si 5X» * HDN« • . I ' 

l-vyeARs ?7 I 5T// , 1 OX »'DTRM SLG V?v0 , $ 1 5T5 X j J C AT tr»Tl 5 • 5K? »‘MONii i 

25Xi 'YEAR-MI5) 

WRTTR(‘;PRT,337) 

337 F0RMaT(////, 1OX, 'THE C0NF j GUR AT | DNS i5^ IHE 209 D0TSS////) 

*'D0‘U LS17U7 ■ 

HObm0IHL*1O) 

C-ATLt “TR E A15 tr, TIU|f2 7 tCOr 

CALL TWAlT(2) 

D0 12 LL = 1.3 ■'■ ■■■ 

CALL TR&AD(1,BuF1i270) 

■ -—CALL' TMAITMT'"" 

Ps72 

fJStrg-^ 

DP 13 Sal»196 

S1Dsm2D(5.10) * ■■■ ■ 

Xb8UF2<S+72) 

ir(X,LE,0) x»=x*2t>6 ^ ‘ 

CALL JNDDT<X) 

D0-TA-5S - 1T2 

ND0TbO 

~ irCfLlO.FW.or.AND, {S10VEQiOr,AND,TLL.fc«.3) ,AND7TSS,Et3V2n'> 
paP*l 

- -^TVSBUFKP) 

TV*TV+128 

1 r( Licr , Rt?VTr;'«ND ^ sxd , eo vo ) ’ '"Bs* ?-s *1 

1 P(L 10 ,EQ, 0 , AND.Eio.EQ.O) PPTR (LL « > “wU ( T Vi 1 ) 

Tf CTV.EO.Or GO' T0 14 

CALL INDOT(TV) 

'■ ' RTsRT + 1,0' - 

n*lFCM<rVj 

CAUL IRRR(lIiJJ) 

- RA ( II , J J ) sRA CT I ) + 1'. 0 - 

IF<Nn0T,''n-,l) G0 TO 15 

■ •' Dr<L/iD,Lvioraj):tx,'i) — * — ■ 

1!5 continue 

— 1-4— c r«T riVLE 

i3 CONTINUE 

■-■rF(L10,'EO’,0)' — CAU‘L’'’DDt'P.a) 

12 CONTINUE 

1 F ( L 1 0 •, E 0 . O' ) " C ALX' ■ RD K T fF 

U CONTINUE 

Grpi -T-fi—lU — 

927 WRITE (NPRT,928) 

*928 format tlH-'>--20X, ' *'AS an 'N0T- read* ? 

GO TO 18 

929 WRITE rNPRTV930)"*" — 

930 format (ih ,20x, *al,ap,as NOT READ'.) yjt 2 






|l CeNttNUE 

CAU C1.0SE(NRDD} 

— cAitv ctiysetNRof^} 
return 

— -fNir- 


3-jW<^ 

























4 


J3*TfCfaCK'^ 

ChLL 

KA<xx^■T■^S » 

KA4'X1,7J)-I-».0 


%^trrCxji) 

c^k.1. XNt>4T(ty> 


Xlr; XPCMCtv^ 




X=|l 


RT- 2 o^ 

caul 

C^LLXOT 
XsO * TstO 


X-X+V 


J -3 + \ 




X«|l 


RT=sA/AXt> 

TV\v \4 

'"Ue AIW»‘ 

CALL ?r 6B?T i 

TXlSlO-e-Z 
call zot 


T «0 













X* Xi" 








x= A<X>T^ 
TV*- 

e^wu xki»4t6{ 
CALLXNmCiC 


iXa x,PCN(rv) 
T3«XFCN ex') 




Xsjil 


kt-«-Nax^ 

CAV.U ?lk<»%VT 
TXNt-«3 
CALL. XOT 


CALL?R0B1T 
















1 


r ■■ 

h \ ; 


. . ^ Vi 


"TrrrroF 

'SOPRirOTTNE -KVT ANlr 
IMPUICIT integer <A*»Q),(S-E) 


csmwrTRurs tiT7 x'VTi 'JTrnwiTDTniritT"' 

C0MM0N /MTX/RA( t»0i50) 

' C0MHPTN yCK/ JGT25?T4 ) , m ?56V”4-mNf»‘.lNT 

C0NM0N /MPl/MiND .RT.NPRT»TINDiNAIB 

WK I TE < N P «rr7 7 hT 1 NG — 

WR1TE(NPHTi 775) iNt) 

— rr 9**n5 HHATT t'lWTl 57 

776 F0RMAT(1HO,J.OX»*>NQ«',I9) 

inpjQVGTTSGT' STBP 

IEUnD.OT, 5CI) S!0P 

R CHE C K Ii n 7 , 0 A'l 9 6713 *'6 7 0 

WrITE<NPRT,230) 


-JT^-O 


— n>iRT'-AT*-'<THo>ioxr’'THE“-wr{pitr~scer)ir»-) — 

IF{RT,NE,RCHEcK) WRITE(NPRT|223) 

•223"r0RMAT (7/i lOT, 'THE KHULE" SEGMENT l.'AS •MJ]' EHTIUNT) 'TR0THET3 H 

WKITE(NP«T,2223 RT 

- 222 *r 0 HHATr 7 /ilOXr*C 0 MPOTATim'rA'SeO *«r-ry».t 072 -,-*“SUBPlXEUS»Tn' 
TlNDcl 

■CAttT'pnia'SfPT'' 


- 88 B 


B82 
863 

884 

-•8 81 


WRITE (NPRT.eaO) 

FPRWAT“UHtVl-8XV''’THr~2O'9“ir0T8:-)- 

\)9 081 IsJ.,11 

WRT TEl NPRTf BBHT ■7GTT7;i17“'J»‘Trl'9r'”' 

P0RMA T (IHOilOX.’GTS 191 5) 

FBRMAmH /lOX, IDUiI^IS) 

WR iTE" ( NPRT7 ae4')-“ { A I r. 3 )7 J* I rjr97 — 

F0RMAT <1W , 10X,*AI'|1915) 

— CONTINUE 

CALL HBT 

D 13 •'•HZfl-i'TrlTtl 

P^ 820 JaJ,19 

— x--'s-dttitJ)' 

TV ■ G(I,J) 

■CAtC'TNt)GT(TV’) 

CALL INI3DT<X) 

* UBTFCNTTV) 

JJ=JFCN(X) 

-CALL' IERRUTTSCT 

RAUIiJJ) * RAUIiJJ)*1.0 


"820 DBNTTNyE'— • 

RT*209,0 

C Att.'-P 'TT»PT 


CALL «50T 
D0 920- I-slTH" 
D0 920 J«l,19 


-IFIACtT J ) 1 ecvTJI — CT-Tf-92ff- 
X « DTU,J) 


Tr-»"CTt 737 

call INDGT(TV) 
— FALrTNcaTixr' 

11»IFCN<TV) 

^j-jejFCNUr 

CALL lERRUliJJ) 


-rrjrt-j iTJ~Ar-yiTAtm^r*Tro~ 

920 Continue 

-"RTeWin 

WKITE(MPRTi921) 

-92rT0RMATaHOnOrp-THE-’AT “DWTrtr 
CALL PR00PT 
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/ 4 r 


TINDp2 
CAUL 2«T 

" ‘ D® T5T I'iXi II ■ 

D0 990 J0lil9 

irtAcr, jJiHq,o) n t0 990 

X"DTn,J> 

Tv»rrri’3i 

CALL INDQT(TV) 

1!ALL IKIDOT(X) 
n»ircN(Tv) 
j%r»jrcN(X) 

RAUli JJ)»RA( 1 

WTiNAlD 
CALL PR08PT 
T1 NDp3 
call Z0T 
D0 960 

— -U^“9*6U-3'ri'ri'9 

,EQ,0) Q0 T0 960 

X»A(J,J) 

TV»G(I*J) 

■CALI rNDGT(TV) 

call INUDT(X) 

J-J 

JJpjrCN(X) 

RAniiJJ)*RA(lTi JJWl.C 
960 C0NTINUE 
RTpNAID 
call PH0BPT 

• RfTU'ffl'5 

END 



3.2.18.10 SubTOutintt PROBPT 

Subroutine PROBPT calls subroutines which compute probabilities 
and counts and print them out. 


3.2.18.10a Flowchart 



CtKiX. Xl4^m 
CALL NSSOM 
CALU SOKT 
MXNP«I 


4'«+W 

CAUL M'TXFT 
CAUL ?^0% 
MXNP«2 


Fv*w“V 

CAUV.MT)(VT 

MXN !)«3 


Vy‘\Vs*V 

CAUL MTm 

CALL PA4^C 


6 



9 


0 









3.2.18.10b 


tVaWBUTrNf FW0BFT 
IMPLlCfT INTiQfeR <A-Q),(S«?) 

C9mm /HFT/f*lVD ,»T,NPITT,TriJU»Kf*rD‘ 
CiJMM0N /CK/JQ(256|4), jn(256# 4)»lNa,JND 


PFL0«0 

TFCPrUQ.WE.l) G0 T0 261 

WRITE (nPRTi 260) ((JDU.J), Jil# 4 ) , I ■!, 256) 
260 F0RWAT (IK , 10X|4I10) 

WRITE (NPRTi 260) (<JQ( I,j),jm#4), I«1,296) 

-rerrtJtmTTnuE- ' 

irUND,Lfc*0> ST0P 
CALL INODM 

ir(PFLG|M&.D 50 T0 262 

WRITE (NPRTi 260> njD(I,J)i 4 ) » I »l, 25T) 
write (NPRTi 260) { (JQ( I, J)i J«1,4 )i IaXi256) 

“76r2“C-0-rrrTHUE“' 

CALL MSUH 
CALL S0RT 
MiND»i 

rF(TlNDtEQil) WRITE(NPRT,750) 

IF(TlNn,fcO,2) WWITE(NPHT,8i>0) 

trtTTWb ,12137^7 ”WRt Tf t’^R*1TTl‘^'5in 

750 F0RMaT(1H1,1OX. *ThE MATRIX ^^(G.D)*) 

85tJ F0RMAT(1H1,1 OXi f the MATRIX iVCAIfDlM 
50 F0 RMaT(1H1,iOX< »THE MATRIX NIQiAU’) 

CALL MTXPT- 

CALL PR0B 

iTii'mT2 — 

IF (TlNDifcQil) wrITE(NPRTi755) 

IF(TrND,EQ,2) WRITE{NPRT,B55) 

1F(TIND,EQ,35 writE(MPRT,955) 

755- F0RMATUW1,1OX,^TKE MATRIX P(G,grn 
855 F0RMAT(1H1,1OX, ’THE MATRIX P(AI,D)*) 

655 r0RMAt(lHl,l^X'»’tH£ MAtRlX">nr,/U)») 

CALL MTXPT 

-MINO '■'■"T ■ ■ 

IFCTlND,EQ,l> WRlTe(N'PRT,756> 

IF<nNn,EQ,2J WRITE(NPPT,856) ' 

IF(TINU|EQ,3. ) WRITE(NPRT»956) 

— 75^” r0RHAT tXHl ,'ICX, ^THE RATTnr)r"PTCX'CJ n 

856 F0RMAT (IHl.iOX, ’THE MATRIX PtU/AP') 

956 F0rmaTUH1,1OX» ’THE MATRIX P(A|/Q)’J “ 

CALL MTXPT 

■ 1 I I • » o f» -rt i»i - • • * - , 


If PA w Im ' ' I r I 

CALL PR08C 
_ HIN O ;4 
fTTTriVITTECVXT' 

ir/TaMPA £Ln ^ \ 


.. . . -KRtTETKP'RTiTyTT*' — 

IF(TIND,EQ,2> WR J TP ( NPRT , 657 ) 
rF(TIND,E0.3) WRITE(NPRT,957) 

F0RMAT (1H1,1QX, 'THE matrix P(U/0)’; 
F0RMAT (IHl.lOX, ’THE MATRIX P(AI/C)<J 
F0RMAT(lHlilOX» ’THE MATRIX PIQ/An')"’ 
— g ^T^ - ^ -H T xpr ■- — 


757 

157 

957 


return 

INC 





3,2.18.11 Subroutin# INDDUM 


Subroutine XNDDUM stores input codes for access. 

I 

3.2.18.11a Flowchart 












3.2.18.11b 


SUBH0UTINE INDDH 

■ 'IT5|PLTtrTT INTFtJCTTA*ZJ - ■ 

C0MM0N /CK/JG(256»4)i JD(256p 



3.2.18.12 Subroutine lERR 

Subroutine lERR indicates errors in input codes 



















S. 2. 18.12b 


SUBR0UTINE IERR(II,JJ) 

ClflMMBN /mPI/MIND ,RT|NPHT»TIND»NAID 

vmTTE 

IP (Il*GT,256> 

IF(JJ,GT.256) 
TrtUiLTiii0R.IIfGT,Z56) 

It- <JJiUT,l,S3R, JJ.GT,2!56) 

V ItJXV^lTrt7 T 9 ) • 

•26 FWRMATUHOilOX, » JJ«M5) 

return 

END 


WRITE(NPHT>62Jjj jj 
WRITE(NpKT»e26> UJ 
WKlTEINPKTiezB j UJ 
ST0P 
ST0P 



3.2.18.13 

Subroutine 

3.2.18.13a 


Subroutine INDDT 

INDDT records the occurence of cluster numbers 


Flowchart 







3.2.18.13b 


SUilTiUTINi rVDDTtTAPft 

implicit InTEBERIApZ) 
"“T0MK0N /CK/ J^r256 , A ) i J0 1256 | 
KK*JD(TAPE,1) 


^TETORTT^ 


INDilNDAl 

J0(KK.2) • KK 

JD(KK»3> » IND 
wirnuN - 
iND 


4)» ITJG# lira • 


I 



3.2.18.14 

Subroutine 

3.2.18.14a 


Subroutine INDGT 

INDGT records the occurance of ground truth numbers 
Flowchart 


mwCT4rc\ 





J6(KK^i)skK 

q^NG*XW64-l 


Ke'fuorvi 





3.2.18.14b 

SUtHaUTINfc INDGT(TAPe) 

IMPLICIT 1nT|Q6R<A-2) 

CMMMBN /CK/J6(25P|4I, JDI2&6, 4),INU#INU 
KK«JG(TApf,l) 

lfrjG(KK,2),Me,m return 

1NQ«ING*1 

JGIKK|2) « KK 
JQ(KK»3) aiNQ 

— 

END 



3-z 


3.2.18.15 Functions JPCN and IPCN 

Functions JPCN and IPCN point to the correct location in the count 
matrix. 


3.2.18.15a Flowcharts 




Lt>« SOCkDjS') 


R c+uvirt 







IHPtICIT INTEQgR (A«0),(S«|) 

C0MM0N /CK/JQ(256|4), JD(256, 4>,INCi,IND 

KpijD(X«l) 

lOHJtSCKDiZ) 

JFCNiJDaD.3) 

tf' TUWN 

IND 

■f^CTI0N irCN(TVJ 
IMPLICIT INTEGER U*0>,<S-i!) 

/CK/J‘G{Z56#4),jn(256» 4>iING|lN'0‘ 
K0»JQ<TV»1) 

"f^%rtrarGr2t 

IFCN«JQ(LG,3) 

■WE-rgRTN^ 

END 




i. 2. 18. 16 Subroutine MTXPT 

Subroutine MTXPT prints probability and count matrices. 
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3.2.18.16b 

5U9R0UTIKH rrxRT 

IMPUICIT INT6Q6R U-0)#(S»?) 

-* C-SJMHfN /HRT/wi*^D •RT,W»Rt,TlMD,NAlO ' 

CgMM0N /CK/jG(256> 4)i JD (g56» 

11040 

MUtW4nND/10)#lCl*l 
D0 666 

UUMiLLlM*9 

if-unid,gh.uim,and.ind,iy,uuim) 

twrJ'Jl 4’)Yjyri.t;,tM7t/t:;rr) ■ 

rsi FkJRMAT(lHO,lOX#lO(3X, I5,?xn 
00 652 n^lilNG 

IF (MIND,0T.2> Q0 T0 200 

IMMilM«l,EQ.IND.AND,gUM,EQ, IMD) 

IF(UUlM,fcQ,IND) ULIMnUUM*! 

- - - 

U (I10,EQ»1> Gt* ^0 400 

IF<MlND,tQii) WRITE (NPRT,653) JQ( 1 1 »? ) i <RA(I I » JJ) . 

IF(MlND,e0.2) write (NPRT»253) JG U I » 4 ) ♦ Cp a ( II . JJ ) » J J»UU H , UL IM) 
IF(MlWri*:0,4) write (NPRT,?53> JG ( II » 4 ) » I P a I II # JJ J i Ut ITtf 

IF (MJND»EQ,3) WR1TE(NPRT,253> JGUl#4j, ( R A ( II | JJ I /RA ( II , I NO*l > » 

— VJ»ti rM»VL’TtH ) " ■ ■ 

IF(MIN0,£Q.1.AND* n.EQ.ING) WHlTfclNPHI ,356) ( R A < I NG*1 , J J ) ♦ J J» 

• gUlM.ULlM) 

lF(MINn,fc:Q,2.AND. II ,EQ, ING> WR I Tfc ( NPK I , 256 ) ( RA < I NG*1 , J J ) , J J« 

• UlMiULlH) 

356 F0RHATaWO,lCX,lOFlO.O) 

256 F0RMATaHO,lOX,lOFlO,5) 

653 F0RMAT(1HQ, 5X, Ib,10F10,0) 

«53- FORMATIIHO, 5X, Ib,10F10,5) 

G0 T0 A5Z 
400 C0NTINUE 

inMINp.EQ.l) WRITE (MPRT,643) JG ( II , 4 ) ♦ ( R A ( II , JJ > , J J-LL I M, Ul I M) 

trtM-T^O-,Btr,?) -WRITE- WRT, 743) JOnirRl rtRA ( T i ,g'jTV'Ojn.XTK',otm-- 

IMMIND,fcU,l. AND. I 1 ,EQ. ING) WR I Tt I N^H I , 346 ) ( R A ( I NG*1 1 J J ) , ^ J» 

^ # UIMiULlM) 

IF(MlNP,fcQ,2. AND. n ,E0. INQ> WR I Tt ( NPR I , 2 46 ) (RAnNG41,JJ),JJ" 

• UIMjULIM) 

346 F0RMAmHO,lOx.llFlO,O) 

-“*7140 ■ rORf^ aTTIWO , lox • llFl 0 , 5') 

643 F0RMATUHO, 5X 1 Ib, UFIO , 0 ) 

743 FBRMATUHD, 5X,P,UF10,5) 

652 C0NTINUE 

write (NPRTilOO) 

100 f0RKAT (IHO) 

tmTOV^G ,"17 "TO-OITO 

IFIMUM-I.Eq, iNd.AND, IND.fcO.ULIM) dit i® 500 
■666 C0NTINUE 
500 C0!MTlNUb 

— ■ RrruRN 

END 





3,2.18.17 Subroutine SORT 

Subroutine SORT orders the crop codes, the cluster numbers and 
their counts. 


3.2.18.17a Flowchart 




















3.2.18.17b 


*20 

10 


HjgffjjVj T INg yg l^T 

IMPUCIT INTEQER U-0)|(S-I) 

C2MM0N /CK/JGf256,'41, JD(256< iMNGiTND 
C0MM0N /MTX/RA( b0,50) 

iNGMriiNQ«i 

P0 10 I»1»ING 
— m 'fg-rm-n-Mimr 

ir<jG(n.4),LB,jG(n*i*4n q0 th xu 

JJ . v/G<n,4) 

JG(II»4) • JGUl*l»4) 

MjJ ' 

INDP1»IND+1 

xrrTtr' 

RR » RA (IIij) 

RACii»j> * R-A(nniJ) 

«A(II^liJ)«RR 
• C0NTINUE 
CONTINUE 


TTtr 

30 


D0 30 

30 JJil/lNtWl 

IF (JD(JJ,4>,U6,JD(JJ*1,4))Q0 T0 30 
J]IJU(JJV4) 

JD(JJ»4)iJD( JJ^li4) 



JMQP1*INQ*1 
D0 40 r*l»INGPl 
RRiRAUi JJ) 

RA(I, JJ)«RA(I* JJ^l) 

»RR 

■ 

Continue 
RETUR f^ ■ 

END 



3.2.X8.18 Subroutine MSUM 

Subroutine MSUM computes column and row totals for the count and 
matrix . 


3.2.18.18a Flowchart 
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S. 2. 18. 18b 


— wwaunw- 

IMPUCn INT EQP-R (A»Q ), tS-Z) 

C0MM0N /MTX/RA{ so, 50) * 



651 JJ«l,INO 
D(3 651 n»l,lNG 

' R* j j) A ( iNir*i , r II , jjt 


m CBNT|NUl 
INSPl«iNQ*l 
00 650 II»1,INQP1 

or w jmvTFin — - 

RAUI, 1ND*1)»RA( II, JND*1)4RA<I l, JJ) 
1lfr"{7mTWC 

R6TURN 

PNir - 




3.2.X8.19 Subroutine PROB 

Subroutine PROB changes the count matrix into joint probabilities 





3.2.18.19b 


SUiUBUTINfc PR08 
TWFUICTT I^reOiR 

C0MH0N /HPI/mjnd ,RT|NPRTiTIND,NAID 
C0T1M0N- /CK/Jt3{256|4) i JD(256» 4)»lNprrKf 
CflMMeiN /MTX/RA( S>0,50) 


INDP1»IND^1 

TSm 600 m.INGPl 

D0 600 J«a.iINDPl 
RA(IVJ) PRA(1,J)7RT 
600 C0NTINUE 

ttmmN 

END 


‘-'/(i 




i V 'ify 


tt 


Q ,Vf . ** 




3.2.18.20 Subrotuine PROBC 

Subrotitine PROBC computes conditional probabilities. 
3.2.18.20a Flowchart 





3. 2. 18.20b 

suBwwTi^e 

implicit IMEPgR (A«0)>(S*2) 

C0MM0N /CK/JG(256,4) , JD(256» 41irf^Ci*IND 
C0MMPN /MTX/RA( P0,50) 

DirTtrv*rrr'n3 

DP 10 1»1,ING 

RAIIiJ) » RA(I, J)/RA( IN5*1, J) 

10 Continue 

RETURN 

gNO 




3.2.18.21 Subroutine DDUM 

Subroutine DDUM puts the dot ikbels into the matrix G. 
3.2.18.21a Flowchart 
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VcVu-vvv 
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3.-2.18.21a 
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CALL CR0PL(CH0P,MT<NC) 

cjTL7Tcr;-S'F»trRFP 

100 C0NTINUE 

RETURM 

END 




3.2.18.22 Subroutine PDOTR 


Subroutine PDOTR prints the labels for the subpixels that make 
up the dots. 
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3.2.18.22b 


SUfUWUriNE PD0T1 
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100 CONTINUE 

MRITE(NPRT|102) 
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200 CONTINUE 

■ WRITE (NPRT, 102) 

RETURM . 
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3.2.X8.23 Subroutines ZOT and ZIP 
Subroutines ZOT and ZIP initialize. 


3.2.18.23a Flowchart 
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4. OPERATIONS 


This section presents all information necessary to insure proper 
execution of the various elements of the Accuracy Assessment 
software system. 

4.1 OPERATORS GUIDE 

This paragraph describes the required system configuration and 
operating procedures required for application of the various 
elements of the Accuracy Assessment software system. These are 
provided in sufficient detail to insure proper application of the 
system by the usual Accuracy Assessment system user. 

4.1.1 EQUIPMENT SETUP 

In general, the required hardware configuration is the POP 11/45 
computer with an RSX-llD operating system, along with appropriate 
peripherals. In general, these peripherals will be the standard 
tape drives (one or two, depending on the software element) , disk 
drives for system software and data storage and an output print 
unit. Details of tape and disk utilization for each of the soft- 
ware elements are provided in the following paragraph describing 
"setups”. 

4.1.2 PROGRAM "SETUPS" ' 

The required setup for proper execution of each of the major 
Accuracy Assessment software system elements are presented below. 

4. 1.2.1 Preprocessor DTERM Setup 

e Mount a DTRM tape (foreign) without a write ring. 

e Input a tape mount card into the DTERM* DAT data set. That 
card (formatted; Al, IX, 12) should be as follows: 


First entry » MT (Unit type designation) 

Second entry * integer value (unit number) 

The first entry should be followed by a blank. 

Example: MT B Obi 

4. 1.2. 2 Preprocessor BTREAD Setup 

• Mount a "Bendix 100" output tape (foreign) without a write 
ring. 

• Mount a scratch tape with a write ring for output. 

• Put two tape mount cards formatted (Al, IX, 212) into the 
BTREAD'DAT data set; the first corresponding to "Bendix 100" 
tape (input) and the second for the scratch tape to contain 
the BTREAD output "BlOO" tape simulation. The contents of 
these two cards is ; 

First entry » MT (Unit type designation) 

Second entry « Integer value (unit number) 

Third entry - Integer value (tape file number) 

A blank must follow the first two entries: 

Example: MTiOllS 

• An ID card (formatted 415) must be input behind and with the 
two tape mount cards. The contents of this card are: 

First entry = Four digit segment number 
Second entry = Two digit acquisition day of month 
Third entry = Two digit acquisition month 
Fourth entry = Two digit acquisition year •- 1900 
Blanks must follow the first three entries. 

Example; 1011b05b07b77 



4. 1.2.3 Optional Utility SGMAP Set up 

• Mount the Ground Truth tape output product of Phase 2 (foreign) 
without a write ring. 

• Put a tape mount cart formatted (Al, IX, 212) into the SIGMAP*DAT 
data set. The contents of that card should be; 

First entry « MT (unit type designation) 

Second entry * Integer value (v^it number) 

Third entry « Integer value (tape file number) 

Example : MTO 10 6 

• A set of "codes to code" cards (formatted 315) should be 
entered as bulk of the MAP* DAT set. The contents of each 
card are; 

First entry = Integer (start value of code range) 

Second entry “ Integer (end value of code range) 

Third entry = Integer (code assigned to all points within the 
range specified by the first and second entries 
in the card) . 

A single card containing 0 0 -1 as the three entries should be 
input as the MAP* DAT card set if no code-to-code transformation 
is desired. In any event, the MAP* DAT data should- be terminated 

with a blank card. 

• Two additional card entries formatted Al are entered with the 
MAP* DAT data set. These are; 

1. Data type card containing either; 

a. GT (Ground Truth data to be output) 

b. DTRM (DTERM data to be output) 

c. SP0T (Subset of ground truth to be output) 




1 . 


with this option another card is input with the coordinates 
of the upper left hand corner of this subset. 

2. Output type card containing either; 

a. MAP (output is to be a map) 

b. NUM (output is to be a numerical dump) 

4. 2. 1.4 First Unit, First Module ^ Phase. 1 Setup 

• Mount the tape product of a previous BTREAD execution. 

• Put a tape mount card (formatted Al, IX, 212) into the 
PHASEl’DAT data set. The card contents are; 

First entry = MT (unit type designation) 

Second entry = Integer (unit number) 

Third entry = Integer (number of tape file to be processed) 

The first and second entries should be followed by a blank. 

4. 2. 1.5 Second Unit, First Module, Phase 2 Setup 

• Mount a scratch tape (foreign) with write ring to contain 
output ground truth data. 

• Put a corresponding tape mount card (formatted Al, IX, 212) 
containing : 

First entry = MT (unit type designation) 

Second entry = Integer value (unit number) 

Third entry = Integer valuv'J (tape file number) 

• Put an ID card (formatted 315) into the LABEL*DAT data set. 

The contents of this initial card of the data set are; 

First entry = Up to five digit segment number 

Second entry = Two digit acquisition day of month 

Third entry - Two digit acquisition month of year 


M /b} 


Fourth entry » Two digit axquisition year - 1900 

• A set of ground truth label cards (formatted 315) each con- 
taining: 

First entry ® Integer (number of field starting sequence of 
fields vith common crop code) 

Second entry =® Integer (number of field ending sequence of 

fields with common crop code) 

Third entry = Crop code assigned to all fields in the card 

defined sequence to replace the analyst assigned 
codes 

= -1 if field numbers are to be used 

• liABELl'DAT made by BTREAD map be put into LABEL* DAT an 
alternative. 

4. 2. 1.6 First Unit^ Second Module SPATE Setup 

• Mount the ground truth tape product of a previous execution 
of Phase 2 (foreign) without a write ring. 

• Put a corresponding tape mount card (formatted Al, IX, 212) 
into the SPATE* DAT data set containing: 

First entry = MT (unit type designation) 

Second entry = Integer value (unit number) 

Third entry = Integer value (number of tape file to be processed) 

• Entry a set of codes-to-code cards (formatted 315) into the 
SPATE* DAT data set, each containing: 

First entry = Integer (start value of code range) 

Second entry = Integer (end value of code range) 

Third entry = Integer (code to be assigned to all points 
within the range specified by the first and 
second card entries) 




» -1 if analyst assigned value (tape value) is to 
be used 

• Enter a set of A1 transformation cards (formatted lAl, 4X, 15) 
into the SPAT! • DAT data set, each containing; 

First entry « Alpha classification symbol 

« X if end of file E0F 

Second entry = Integer code equivalent 

• Enter a set of A1 label cards (formatted lOX, 12, iX, 12, IX, 
Al) into the A1*DAT data set, each containing: 

First entry = Integer point line number 

Second entry = Integer point number in line 

Third entry = Alpha classification symbol 

End of file (E0F) is denoted by a blank card. 

4.2. 1.6 Second Unit, Second Module ALLCRP Setup 

• Mount a ground truth tape (foreign) product of a previous 
execution of Phase 2 without a write ring. 

• Mount a DTRM tape (foreigh) without a write ring. 

• Put two tape mount cards (formatted Al, IX, 212), the first 
corresponding to the ground truth tape and the second to the 
DTRM tape, into the ALLCRP* DAT data set and each containing: 

First entry = MT (unit type designation) 

Second entry == Integer (unit number) 

Third entry = Integer (number of file in tape to be processed) 

• Enter a set of Al transformation cards (formatted Al, 4X, 15) 
into the ALLCRP *DAT data set, each containing; 

First entry = Alpha (classification symbol) 

= X, if end of file (EOF) 



Second entry Integer code equivalent 

» blank if end of file (E0F) 

• Enter an a-priori probability card (formatted P10.2) in the 
ALLCRP'DAT set following the A1 transformation cards. This 
card will contain the numeric value of the assumed a-priori 
probability as the sole entry. 

• Enter a set of codes-to-code cards (formatted 315) for the 
ground truth, each containing: 

First entry = Integer (start value of code range) 

Second entry = Integer (end value of code range) 

Third entry = Integer (code to be assinged to all points 
within the range specified by the first and 
second card entries) 

= -1 if ground truth assigned value (tape value) 
is to be used 

• Enter a set of codes-to-code cards (formatted 315) for the 
DTRM file, each containing: 

First entry = Integer (start value of code range) 

Second entry = Integer (end value of code rnage) 

Third entry = Integer (code to be assigned to all points 
within the range specified by the first and 
second card entries) 

= -1 if cluster number (tape value) is to be 
used 

• Enter a set of A1 label cards (formatted lOX, 12, IX, 12, 

IX, Al) into the A1*DAT data set, each containing: 

First entry = Integer (line number of dot) 


Second entry « Alpha (analyst label symbol for dot) 

Third entry » Alpha (analyst label symbol for dot) 

A blank card entry denotes end of file (EOF) . 

• Put a loop card (formatted Al, 4X, 15) into the LOOP* DAT data 
set containing: 

First entry » L00P 

Second entry = Integer denoting the number of files (arbitrary 

but nominally 3) to be processed in the sequence of MLTCRP 

executions. 

• Enter a set of Al label cards (formatted lOX, 12, IX, 12, IX, 
Al) into the A1*DAT data set, each containing: 

First entry = Integer (line number of dot) 

Second entry = Integer (number of dot in line) 

Third entry - Alpha (analyst label symbol for dot) 

A blank card entry denotes end of file (EOF) . 

• Put a loop card (foirmatted Al, 4X, 15) into the LOOP* DAT data 
set containing; 

First entry = L00P 

Second entry = Integer denoting the number of files (arbitrary 
but nominally 3) to be processed in the sequence of ALLCRP 
executions . 

4. 2. 1*7 Second Unit, Second Module MLTCRP Setup 

• Mount a ground truth tape (foreign) product of a previous 
execution of Phase 2 without a write ring. 

• Mount a DTRM tape (foreign) without a write ring. 

• Put two tape mount cards (formatted Al , IX, 212), the first 
corresponding to the ground truth tape and the secoi.d to the 
DTRM tape, into the MLTCRP* DAT data set and each containing: 


First entry ■ Alpha classification symbol) 
a* X, if end of file (EOF) 

Second entry » Integer code equivalent 

“ blank if end of file (E0F) 

4.1.3 START UP PROCESSING 

Following proper program setup as specified in the previous 
paragraph, software activation is according to usual user 
procedures. 

4.1.4 OPERATING INSTRUCTIONS 
Not Applicable 

4.1.5 TAKE DOWN INSTRUCTIONS 
Not Applicable 

4.2 USERS GUIDE 

Use of the Accuracy Assessment Software System is restricted to 
a small, highly specialized group of people. Each member of 
this group is, or will be, thoroughly trained in the use of the 
system by way of an individualized, hands-on training program. 

In view of this fact, the requirement for formal user instruction 
documentation is minimal and is fully satisfied by the preceding 
paragraphs and the following functional description. 

The normal functional flow of the Accuracy Assessment Software 
system is as depicted in Figure 4-1. The functions of the 
various elements of that system are presented below, in the order 
their occurance in that flow. 





















4.2.1 BTREAD FUNCTION 


BTREAD operates on ground truth field vertices data produced 
and output to magnetic tape by the "Bendix 100" system. It 
converts those data from NOVA floating point to DEC integer 
equivalents, than organizes them into the appropriate files 
LABELl'DAT, LABEL2*DAT and LABELS* DAT, which are output to tape 
for input to the following Phase 1 element. 

4.2.2 PHASE 1 FUNCTION 

Phase 1 operates on the data files produced by BTREAD to define 
ground truth field boudary intercepts with dot lines. These 
intercepts are then structured into files for direct entry to 
the following Phase 2. Intercept definition is by way of a fixed 
sequence of operations, each accomplished in Phase 1 by a special 
subroutine. That sequence of subroutine operations is as follows. 

4. 2. 2.1 S--01 FUNCTION 

Buffers input coordinates of intercepts and locates maximum and 
minimum y coordinates. 

4. 2. 2. 2 S-12 FUNCTION 

Removes redundant points from the x and y coordinate arrays to 
insure that there are no more than two (contiguous) points per 
line . 

4. 2. 2. 3 S-23 FUNCTION 

Inserts redundant points at maxima, minima and inflections of 
the field boudaries. 

4*2-2. 4 S-34 FUNCTION 

Fills in missing field boundary segments 



4 . 2 . 2 . 5 S"45 FUNCTION 


Connects all intercepts within given lines. 

4 . 2. 2. 6 S-55 FUNCTION 

Puts intercepts in ascending order. 

4 . 2. 2. 7 S--56 FUNCTION 

Packs intercepts into a one dimensional butfer (INTCPT* 
DAT) for direct entry to the Phase 2 element. 

In addition to the above functions, Phase 1 organizes 
data identification information derived from card inputs 
into a header data file (HEAD* DAT) for direct input to 
Phase 2. 

4.2.3 PHASE 2 FUNCTION 

Phase 2 operates on the data file products of a previous 
Phase 1 operation; HEAD* DAT and INTCPT* DAT, along with 
the labeling data files (LABEL1*DAT, LABEL2*DAT, and 
LABELS* DAT) produced by a corresponding execution of 
BTREAD. Any or all of LABEL ( i )• DAT, i = 1, 2 or 3, may 
be put into the LABEL* DAT file through a PIP operation, 
eliminating the requirement for card input of labeling 
data. The resulting LABEL*DAT data sets are: 

m All crop classes - from LABEL1*DAT 

• Small grains and other - from LABEL2*DAT 

• Field numbers - from LABELS* DAT 

In each case a file is PIPed into LABEL* DAT and a 
corresponding file nxomber change must be made to the 
tape mount card in PHASE1*DAT. 





The end product of PHASE 2 is a wall-to-wall mapping of 
ground truth data in Universal format, output as a "ground 
truth" tape. 

4.2.4 SC3MAP FUNCTION 

At the option of the user printout maps of the "ground truth" 
data output of PHASE 2 may be generated by an application of 
the utility element SGMAP. SGMAP operates on the data sets 
MAPI* DAT, MAP2*DAT, and MAPS* DAT which correspond to the 
PHASE2 LABEL1*DAT, LABEL2*DAT and LABELS* DAT, respectively. 

These files are placed into the MAP* DAT data set by use of the 
PIP facility, with the appropriate file so designated on the 
tape mount card in the SGMAP 'DAT data set. SGMAP then formats 
the data for block print out as an alpha-numeric map. Each 
map is accompanied by a map symbol to crop type code table 
providing full definition of the symbology employed for a given 
output map. SGMAP also prints out maps of DTERM files as well 
as subpixel level maps of ground truth files. 

4.2.5 SPATL FUNCTION 

SPATL operates on the ground truth data product of PHASE 2 and 
card input A1 dot label data. SPATL compares the A1 dot data 
with the ground truth data for the production of certain 
accuracy assessment parameters (see paragraph 3.2.15.4) including 
the ground truth wheat production which is used for the a priori 
probability input to ALLCRP 

SPATL may be executed either for consideration of all crop 
classes or for consideration of "small grains and other". 

4.2.6 ALLCRP FUNCTION 

ALLCRP operates on the "small grains and other" ground truth 
data, described by its input transformation the SPATL derived 



wheat proportion (a prori probability) and corresponding DTRM 
data to produce certain accuracy assessment parameters. Its 
products are identified in paragraph 3.2.17.4. 

4.2.7 MLTCRP FUNCTION 

MLTCRP operates on the ground truth data, the corresponding DTRM 
data and the A. I. dot labels to produce certain accuracy assess- 
ment parameters. Its products are comparisons of DTRM data with 
the other forms of data. 

4.3 MAINTENANCE DOCUMENTATION 
Not Applicable 



APPENDIX A 


ACCURACY ASSESSMENT INPUTS 






APPENDIX A 

A.l **BENDIX 100” OUTPUT DATA TAPE 

Data are presented as 80 word records on a 9-track, 800 BPI 
magnetic tape with odd parity. All values are expressed in 
NOVA floating point and are presented in the following 
format. 


RECORD WORD CONTENT 

WORD 

1 Field Number (1-499) 

2 Number of Vertices +2 

3-80 Field vertices coordinates (odd numbered 

words-x; even numbered words-y) 


A. 2 TAPE 

Data are presented as 80 word records on a 9-track 800 BPI 
magnetic tape with odd parity. All values are expressed in 
DEC integer form in a format identical with that of the 
"BENDIX 100" output tape described above. 


I 



k, 3 DOT lABEUWG CARO INPUi^S 


Analyst labeling data are input in punched cards in the 
following format. 


FIELD 

(Card Cols . ) 

CONTENT 

CHARACTER 

Type 

1“10 

Blank 


11-12 

Line number 

Integer 

13 

Blank 


14-15 

Dot number 

Integer 

16 

Blank 


17-18 

Crop class 

Alpha 

19-31 

Blank 


32-33 

Not used 

Alpha 

34 

Blank 


35-38 

Not Used 

Integer 

39 

Blank 


40-43 

Not used 

Integer 

44 

Blank 


45-48 

Not used 

Integer 

49-52 

Blank 


53 

Not used 

Integer 

54-57 

Blank 


58-64 

Not used 

Integer 

65-67 

Blank 


68-72 

Not used 

Integer 

73-80 

Blank 




APPENDIX B 


ACCURACY ASSESSMENT OUTPUTS 



APPENDIX B 


B,1 SPATL PRINTED OUTPUTS 

SPATL output is in labeled blocks, preceded in the printout 
by listings of the punched card inputs (codes-to-code table, 
and A1 dot labeling data) and run identification data 
(ground truth file, site and acquisition date/* The 
following are the SPATL output data blocks in order of 
their occurance in the printout. 

• Code-to-code Transformation 

Each line of the table provides the range of codes to be 
transformed (beginning and end values) and the code 
assigned to that range. 

• Ground Truth Information for the Whole Segment 

Each line of this table presents, for a given code, values 
for the parameters explained in the following table. 



PARAMETER 


EXPLANATION 


PI(X) 

ND*V(X) 

PMC(X) 

N(W) 

N(0) 

NT(W) 

NT(0) 

PH (W) 
PD0T 

ND*V 

PMC 


Proportion of pixels in the feature space x 
of the scene 

Product of the number of dots and the contribution 
of pixels in cell x to the sampling variance 

Contribution to the probability of misclassification 
due to cell x 

Number of ground truth wheat subpixels 

Number of other ground truth subpixels 

Number of subpixel (pixels for cases 2 and 4) of 
wheat in the data set of comparison 

Number of subpixels (pixels for cases 2 and 4) from 
all other classes in the data set of comparison 

Probability estimate for the class w 

Proportion estimate baaed on classification and 
pixel counting 

Sampling variance 

Probability of misclassification 




B.2 ALLCRP PRINTED OUTPUTS 


ALLCRP output is in labeled blocks preceded by an 80-80 listing 
of punched Card A1 dot l£d>el data described in Appendix A (unused 
fields are included in this listing) . Printout of the output 
starts with a s Xf explanatory block identifying the tape input 
and their unit assignments. This is followed by a presentation 
of the following output data blocks. 

• Type to code Transformation 

This is a table presenting the ALLCRP output numeric equi- 
valents for the various alpha crop types. 

• A1 Dot Lables 

This is a three-column self explanatory listing of the input 
A1 dot labels. The block is terminated by a summary of the 
input data including: 

The number of A1 dots 

The value of the assumed a prori probability 

The identify of the ground truth (GT) and DTRM data (segment 

number and acquisition date) . 



T 



EXPLANATION 

X 

Crop label 

P(X) 

Probability of crop x in scene 

H(X) 

Number of class x subpixels with designated 
code 

PIX n (n » 1,2, ... 6) 

Number of pixels containing n aubpixels of 
class X and the designated coda 


The block is terminated by two self explanatory lines providing 
data qualification. 

(k A matrix of Ground Truth Dot Labels 
Codes for 209 ground truth dots. 

Mixed dots denoted by values >1000. 

• Ground Truth Information for the 209 Dots. 

Data block format is identical with that for "Ground Truth 
Information for the whole segment" above. 

• Type-to-code Transformation 

Provides numeric value equivalents 

(SPATL output) to alpha character crop codes. 

• A Matrix of AI Dots 

This matrix, preceded by a statement as to the number of input 
AI dots, is a display of the positions of those AI dots in 
the 209 dot array. Zero values in the display denote 
unclassified dots. 

• Ground Truth For the AI Dots 

The format of this block is identical with the "Ground Truth 
Information for the Whole Segment" block explained above 
except that it is terminated by different self explanatory 
qualification data. 




This final data block is self axplanatory 


• Data Comparison Data Blocks 


ALLCRP computation results are presented in fully labeled data 
blocks. Each such blrck is preceded by a title line which 
identifies the compari'Aon yielding the data in the block. 

The various data element:, s of the block are explained in the 
following table. 


PARAMETER 






B.3 MLTCRP PRINTED OUTPUTS 


MLTCRP output is in labeled blocks preceded by listing of 
punched card AI dot l^d^els (described in Appendix A) . Following 
this there is a list of the subpixel labels that make up each 
dot, then there is a series of count and probability matrices. 

• Type to code Transformation 

This is a table presenting the MLTCRP output numeric equi- 
valents for the various alpha crop types. 

• Al Dot Labels 

This is a three-column self explanatory listing of the input 
Al dot labels. The block is terminated by a summary of the 
input data including: 

The number of Al dots 

The value of the asi imed a prori probability 

The identity of the ground truth (GT) and DTRM data (segment 

number and acquisition date) . 

• Ground Truth - Code-to-code 

Each line of the table provides the range of codes to be 
transformed ^beginning and enu valueiiO and the code assigned 
to that range (BEGIN=0 ,END=0 , and G0I)E=-1 is no transformation). 

• DTRM Map - Code-to-code Transformation 

Similar in nature to the ground truth code-to-code transfor- 
mation. 

• Configurations of the 209 dots 

This table indicates the subpixel ground truth labels that 
make each dot. 



• Matrices 




Several labeled matrices follow having labels above and to 
the left (totals are not labeled). N(X^,X2) is a count 
matrix indicating the number of joint occurances of X^^ 
(label type to the left) and X 2 (label type above). 

P(X^,X 2 ) is a matrix of joint probabilities for X^^ and X 2 . 

P(X^/X 2 ) is a matrix of conditional probabilities. The 
probability of X^ given X 2 is true. 

X^ and «2 are assigned to be G, D, and AI. 

G - ground truth crop type 

D - class or cluster number 

AI - transformed Analyst dot label. 

These matrices are printed for several possible comparisons 
at different sampling rates (the whole scene, the 209 dots, 
and the AI labeled dots). 

• The 209 dots 

This matrix indicates for each input type labels for the 
209 dots. 



• Matrices 


Several labeled matrices follow having labels above and to 
the left (totals are not labeled), N(X^,X2) is a count 
matrix indicating the number of joint occurances of X^ 
(label type to the left) and (label type above) . 

P(X^,X 2 ) is a matrix of joint probabilities for X^ and X 2 . 

P(X^/X 2 ) is a matrix of conditional probabilities. The 
probability of X^ given X 2 is true. 

X^ and X 2 are assigned to be G, D, emd AI. 

G - ground truth crop type 

D - class or cluster number 

AI - transformed Analyst dot label. 

These matrices are printed for several possible comparisons 
at different sampling rates (the whole scene, the 209 dots, 
and the AI labeled dots). 

• The 209 dots 

This matrix indicates for each input type labels for the 
209 dots. 


^ /9h 


